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INTRODUCTION  AND  SUMMARY 
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The  Bendix  Research  Laboratories  (BRL) , Southfield,  Michigan, 
has  developed  a Hybrid  Computer  Program  of  the  Vehicle  Handling 
Problem  for  NHTSA  under  Contracts  No.  FH-11-6946  and  FH-11-7563. 

This  program  is  used  at  the  present  time  to  investigate  braking 
and  component  degradation.  The  mathematical  model  representing 
a complete  operational  vehicle  system  forms  the  basis  of  a large 
number  of  separate  research  efforts.  NHTSA  determined  it  necessary 
to  increase  the  availability  of  the  program  to  potential  research 
institutions,  who  at  the  present  time  are  not  involved  in  investi- 
gations of  vehicle  handling  behavior  but  who  may  get  involved  in 
such  studies  in  the  future  (see  Ref.  1) . Therefore,  it  was  decided 
that  the  Applied  Physics  Laboratory  (APL)  reprogram  the  BRL  Vehicle 
Handling  Simulation  to  operate  on  its  hybrid  computer. 

In  order  for  APL  to  reproduce  the  Vehicle  Handling  Simulation 
which  existed  at  BRL,  it  was  necessary  to  fully  define  the  vehicle 
model.  To  accomplish  this  task,  a meeting  between  APL  and  Bendix 
simulation  personnel  was  arranged  to  discuss  the  status  of  the 
Bendix  simulation,  view  the  simulation  in  operation,  discuss  the 
analog  and  digital  programs  in  detail,  and  obtain  selected  simula- 
tion data  to  enable  APL  to  determine  that  it  had  successfully  repro- 
duced the  simulation. 

APL  reprogrammed  the  Vehicle  Simulation  to  operate  on  its  hy- 
brid computer.  The  program  was  checked  against  the  existing  one 
at  BRL  by  utilizing  an  identical  set  of  input  data  and  comparing 
the  output  data  with  that  of  the  Bendix  simulation.  Comparison 
was  made  using  data  representative  of  the  split  rear  axle  1971 
VW  Sup<?r  Beetle.  No  runs  were  attempted  for  a solid  rear  axle 
vehicle  due  to  lack  of  data. 
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SECTION  2 

FOUR-WHEELED  VEHICLE  HYBRID  SIMULATION 

2 . 1 INTRODUCTION 

Contained  in  this  section  is  a description  of  the  four-wheeled 
vehicle  hybrid  computer  simulation.  The  basic  mathematical  model, 
which  was  supplied  by  BRL  (Refs.  2 and  10),  is  described  in  terms 
of  its  seventeen  degrees  of  freedom.  The  perturbing  forces  and 
moments  which  act  on  the  vehicle  are  also  considered.  The  simula- 
tion implementation  and  checkout  are  discussed. 

2.2  SIMULATION 

2.2.1  Math  Model 

The  seventeen-degrees-of-f reedom  vehicle  model  consists 

of : 

(1)  A basic  ten-degree-of-f reedom  model  of  the  vehicle  body, 
front  wheels,  and  rear  axle 

(2)  A three-degree-of-f reedom  steering  system  model 

(3)  A four-degree-of-f reedom  wheel  rotational  dynamics  model 

The  basic  ten-degree-of-f reedom  model  regards  the  vehicle 
as  an  assembly  of  four  rigid  masses  (the  vehicle  body,  two  front 
wheel  masses,  and  the  rear  wheel  axle  combination) . In  the  modified 
vehicle  model,  which  includes  independent  rear  suspension,  each  rear 
wheel  is  considered  as  an  independent  mass.  The  ten  degrees  of 
freedom  consist  of  the  six  standard  translational  and  rotational 
degrees  of  freedom  for  the  body,  two  for  the  vertical  motion  of  each 
front  wheel,  and  two  for  the  rotation  and  vertical  motion  of  the 
rear  axle . 

The  steering  system  model  with  three  degrees  of  freedom 
represents  the  compliance  in  each  of  the  front  wheels  and  in  the 
connecting  rod.  The  tire  moments  about  each  king-pin  axis  are  func- 
tions of  the  circumferential  and  side  tire  forces,  the  inclination 
and  caster  of  the  king  pins,  and  the  pneumatic  trail  effects  of 
the  tires.  Steering  wheel  torque  is  the  steering  system  input. 
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Four  additional  degrees  of  freedom  (for  a total  of 
seventeen)  are  contained  in  the  rotational  equations  of  motion 
about  the  spin  axis  of  each  wheel.  These  equations,  which  include 
the  differential  effects  of  the  rear  wheels,  yield  the  wheel  rota- 
tion rates  from  which  slip  and,  in  turn,  the  variable  friction  co- 
efficients are  computed.  The  input  to  the  equations  can  be  either 
drive  torque  or  brake  torque . 

The  equations  of  motion  of  the  vehicle  body,  wheels, 
and  rear  axle  are  perturbed  by  suspension,  gravity,  and  tire 
forces  and  moments.  The  suspension  equations  include  the  effects 
of  the  springs,  shock  absorbers,  and  the  auxiliary  roll  stiffness 
of  the  stabilizer  bar. 

The  tire  forces  (radial,  circumferential,  and  side) 
are  computed  for  each  wheel.  The  radial  load  is  proportional  to 
the  distance  between  the  wheel  center  and  the  road.  The  circum- 
ferential forces  are  a function  of  the  radial  load  and  circum- 
ferential coefficient  of  friction  which,  in  turn,  is  a function 
of  wheel  slip.  The  side  tire  forces  are  a function  of  wheel  slip, 
camber  and  wheel  slip  angle,  and  radial  load. 

2.2.2  Allocation  of  Analog  and  Digital  Computing  Tasks 

The  hybrid  simulation  block  diagram  of  the  automobile 
is  shown  in  Figure  A-l.  The  block  diagram  was  derived  from  the 
digital  and  analog  computer  information  supplied  by  BRL. 

Calculated  in  the  digital  portion  are  the  sprung  mass 
equations  of  motion,  wheel  orientation  angles,  and  tire  force  equa 
tions . Wheel  brake  and  drive  torques,  velocities  of  the  tire  con- 
tact point,  and  resultant  forces  and  moments  are  also  computed  in 
the  digital  portion. 

The  analog  computations  include  the  suspension  forces, 
shock  absorber  and  wheel  spring  functions,  wheel  slip,  and  circum- 
ferential coefficient  of  friction.  In  addition,  the  equations  of 
motion  of  the  unsprung  masses  and  steering  system  equations  are 
solved  on  the  analog  computer. 

The  hybrid  simulation  was  time  scaled  to  run  at  1/10 
real  time,  i.e.,  10  seconds  of  machine  time  is  equivalent  to  1 
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second  of  real  time. 

2.2.3  Implementation  of  the  Math  Model 

2. 2. 3.1  Analog  Portion 

The  analog  portion  of  the  BRL  hybrid  vehicle 
simulation  was  programmed  on  an  AD/4  analog  computer  manufactured 
by  Applied  Dynamics,  Inc.  The  APL/JHU  hybrid  computer  facility 
contains  analog  machines  manufactured  by  Electronic  Associates, 

Inc.  Because  of  the  many  physical  and  electrical  differences  be- 
tween the  two  analog  machines,  it  was  necessary  to  completely  re- 
program the  analog  portion  of  the  BRL  hybrid  simulation.  This  re- 
programming effort  consisted  of  studying  the  BRL  analog  computer 
diagrams,  drawing  computer  diagrams  which  were  compatible  with 
APL/JHU  equipment,  assigning  analog  computer  equipment,  patching 
the  computer  pre-patch  panels  and  debugging  the  analog  portion  of 
the  hybrid  simulation. 

To  expedite  the  checkout  and  debug  phases  of 
the  analog  portion,  a static  analog  test  program  was  written.  This 
was  accomplished  by  using  the  math  model  equations  in  a digital 
simulation  language  program  (Ref.  4) . The  digital  program  output 
provided  an  independent  check  of  the  simulation.  The  static  check 
results  verified  that  the  programmed  analog  portion  of  the  simulation 
represented  the  respective  vehicle  mathematical  model  equations. 

2 . 2 . 3 . 2 Digital  Portion 

The  digital  portion  of  the  BRL  hybrid  simula- 
tion was  programmed  on  a Sigma  V digital  computer  manufactured  by 
the  Xerox  Data  Systems  (XDS) . The  APL/JHU  hybrid  facility  has  an 
IBM  360/91  digital  computer  (a  complete  description  of  the  APL/JHU 
hybrid  facility  is  given  in  Appendix  C) . Although  both  digital 
machines  process  Fortran  IV  programs,  some  program  software  changes 
were  necessary.  This  was  due,  in  part,  to  the  differences  which 
exist  between  the  Sigma  V and  IBM  360/91  Fortran  IV  compilers. 

2 . 3 VALIDATION 
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2.3.1  Selection  of  Validation  Runs 

Three  types  of  vehicle  maneuvers  were  selected  to  vali- 
date the  simulation:  namely , (1)  straight  line  braking,  (2)  trape- 

zoidal steer,  and  (3)  braking  in  a turn.  It  was  decided  that  since 
these  runs  involved  the  two  primary  simulation  inputs  and  results 
of  similar  BRL  runs  had  oeen  published  (Ref.  9) , they  would  be  suf- 
ficient to  estaolish  the  operational  status  of  the  vehicle  simula- 
tion . 

2.3.2  Results  of  Validation  Runs 

2 . 3 . 2 . 1 Straight  Line  Braking 

Figures  2-la  and  2-lb  show  the  results  of  the 
straight-line  braking  tests.  The  initial  and  terminal  velocities 
of  the  vehicle  for  the  three  tests  were  30  and  10  mph,  respectively. 
Three  brake  pedal  pressures  were  used:  300,  600,  and  900  psi. 

The  time  required  to  achieve  full  brake  pressure  for  each  test  run 
was  1 second.  No  attempt  was  made  to  achieve  wheel  lockup.  The 
time  histories  clearly  show  that  the  run  time  required  to  deceler- 
ate the  vehicle  from  30  to  10  mph  is  a linear  function  of  applied 
brake  force  in  the  range  300  ^ Pg  = 900. 

2.3. 2. 2 Trapezoidal  Steer 

The  vehicle  had  an  initial  velocity  of  30  mph 
and  a zero  steering  command.  As  shown  in  Figure  2-2a,  a positive 
trapezoidal  steering  command  was  input  to  the  simulation.  The 
steering  command  reached  a maximum  amplitude  of  49  degrees  in  0.4 
second  and  was  maintained  for  a duration  of  3.5  seconds  at  which 
time  the  command  was  removed  at  a rate  of  122  deg/sec.  A second 
simulation  run  was  made  with  the  same  conditions  except  that  the 
initial  steering  command  was  negative  (Figure  2-2b) . These  runs 
demonstrate  the  symmetrical  response  of  the  simulation  to  identical 
steering  commands  applied  with  a positive  and  negative  sense. 

2 . 3 . 2 . 3 Braking  in  a Turn 

Starting  with  an  initial  vehicle  velocity  of 
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40  mph,  the  vehicle  was  placed  in  a 25  degree  turn  which  was 
achieved  in  0.5  seconds  and  maintained  at  this  level  for  the  dur- 
ation of  the  run.  All  four  wheels  were  braked  1.5  seconds  after 
initiation  of  the  steer  command.  Unequal  Drake  pressures  of  495 
and  300  psi  were  applied  to  the  front  and  rear  wheels,  respectively. 
Results  of  the  test  runs  are  exhibited  in  Figure  2-3. 
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Fig.  2-1  a TIME  HISTORIES  - STRAIGHT  LINE  BRAKING 
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Fig.  2-1  b TIME  HISTORIES  - STRAIGHT  LINE  BRAKING 
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Fig.  2-2a  TIME  HISTORIES  - TRAPEZOIDAL  STEER 
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Fig.  2-2b  TIME  HISTORIES  - TRAPEZOIDAL  STEER 
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Fig.  2-3  TIME  HISTORIES  - BRAKING  IN  A TURN 
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SECTION  3 

CONCLUSIONS  AND  RECOMMENDATIONS 

This  Vehicle  Handling  Simulation  is  operational  and  can  be 
used  for  studying  handling  characteristics  of  four-wheel  vehicles 
with  independent  rear  suspension.  The  simulation  has  not  been 
checked  out  and  verified  for  the  solid  rear  axle  mode.  Input 
data  which  defines  the  vehicle  parameters  must  be  supplied  by  the 
simulation  user.  Presently,  APL  has  only  a complete  data  deck 
for  the  1971  VW  Super  Beetle. 

It  is  recommended  that  the  digital  computer  program  oe 
"cleaned-up"  by  discarding  excess  statements  and  subroutines . 

The  excess  statements  arose  from  two  sources.  First,  as  the  BRL 
digital  program  was  converted  to  APL's  digital  computer,  the  origi- 
nal Bendix  statements  were  commented  and  left  in  the  program  for 
reference  purposes  (see  Appendix  B) . Second,  the  Bendix  program 
contained  old  function  generation  code  and  subroutines  which  were 
no  longer  required.  Removal  of  this  code  will  decrease  the  size 
of  the  program  and  possiJoly  decrease  its  execution  time.  It  is 
also  recommended  that  the  model  equations  of  Ref.  9 be  compared 
with  those  existing  in  the  APL  program.  Discrepancies  should  be 
explained  and  modifications  made  to  the  program  if  a modeling  im- 
provement would  result. 
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1.  INTRODUCTION 

This  appendix  contains  the  vehicle  mathematical  model  which 
was  implemented  on  the  APL/JHU  hybrid  computer.  A hybrid  simu- 
lation iolock  diagram  is  shown  in  Figure  A-l. 

2.  SYSTEM  EQUATIONS 
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Fig.  A-1  HYBRID  SIMULATION  BLOCK  DIAGRAM  OF  THE  AUTOMOBILE 
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2 . 2 Equations  of  Motion  (Ten  Degrees  of  Freedom) 

The  equations  of  motion  of  the  sprung  mass,  front  wheel 
unsprung  masses,  and  rear  axle  are  presented  below: 


ZMu+y9q=ZM  (vr  -wq-gQ)  + Z F 


xu 


(1) 


ZMv-y2p  + Y-]_r  = ZM  (wp  - ur  + g jzf)  + Z F 


yu 


(2) 


Ms  * = Ms  (uq  ' VP  + q)  ‘ S1  - S2  ~ S3  ' S4  + (Fxu3 
+ Fxu4^  TANP 


(3) 


~Y  v + (I  + i')  p - (I  + i'  ) r = Yo  (ur  - wp  - 
Y -2  ^ ^ ^ xz  xz  ' ^ 


x x 


g + Z N 


(4) 


y2 


u + (I  + iM  q = Y2  (vr  - wq  - g 0 ) + ZN^u 


(5) 


Y,  v - (I  + i'  ) p + (I  + I_  + I7)  r = Y 
Y1  xz  xz  z R z 


(wp  - ur  + g $z()  + Z N 


Yu 


(6) 


M 


M _ T_  M a 

uF  • uF  F uF  ^ 

~T~  W + ~A  P ~ 0 P 


M _ M 

uF  7 uF 

~ h = ~ 


9)  + Fzul  + S1  - hul  TW^' 

\ F / 


(uq  - vp  + 


(7) 


M 


M _ T_  M a M . . 

uF  ^ Jl  p _ 4+^6 


M 


uF 


gl  + Fzu2  + S2  + Fyu2  TAN 


2 2 “ 

/2hc\ 

V tf  } 


(uq  - vp  + 


MuR  ^ + b MuR  4 + *3  MuR  = MuR  (uq  ‘ VP  + g)  + 
Fzu3  + Fzu4  ^ S3  + S4  + ^Fxu3  + Fxu4^  TANP 


(8) 


(9) 


♦Solid  Rear  Axle 
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where 


IR  ^ + IR  PR  “ Z Njzta  ^Fyu3  + Fyu4^  (CRRC  6 3 + 


+ 


¥)( 


F - F IT 
xu  3 xu4i  ANP 


(10) 


M 


uR  • 
— — w 


M _ M T„  • M _ M _ 

uR  Dq  uR  R p V uR  _ uR 

2 4 0 3 2 ~ 2 


F _ + S F _ 
zu3  3 yuJ 


TAN ( 2HRC  \ 


TR  ) 


(uq  - vp  + g)  + (11) 


* * 


M 


uR 


• ",R,.  MUR  TR  P 

w + — ~ — bq  - 7 + 


2 " 1 2 
Fzu4 


M 

uR 

4 2 


M 


uR 


(uq  - vp  + g)  + (12) 


(2H 

RC 

m 

R 


** 


S M = 

= M 

s 

+ MUP  + "uR 

I ' = 

X 

M TJ1 

uF 

2 2 
ZF  + MuR  ZR 

H 

II 

i' 

Y 

X 

I'  = 
z 

M „ 
uF 

, 2 TF2 

(a  + 4 ) 

uR 


(13) 

(14) 

(15) 

(16) * 


V = M 


xz 


luF  1 

fa2  TF21 

^ + 4 j 

M 

a 2„ 

- M „ 

uF 

F 

uR 

+ M 


uR 


JR 


y.  =M„a-Mb 
Y 1 uF  uR 


Y 2 MuF  ZF  + MuR  ZR 


y3  = y2 


(17)  ** 

(18) 

(19) 

(20) 
(21) 


*Solid  Rear  Axle 
**Split  Rear  Axle 
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2 . 3 Vehicle  Attitude  and  Position 

The  Euler  angles  and  x,  y,  z coordinates  in  fixed  space  of 
the  sprung  mass  are  computed  by  the  following  equations: 


-p 

II 

(P  + r9  ) dt  + (o) 

(22) 

e -/* 

J O 

(q  - rf6)  dt  + 9 (o) 

(23) 

Ki 

II 

O^ 

r+ 

(r  + qjzf)  dt  + y (o) 

(24) 

* -/* 

(u  COS  y-vSIN  y)  dt  -i-  x(o) 

(25) 

J o 

•>  t 

y = Jn 

(u  sin  y + v cos  y)  dt  + y(o) 

(26) 

o 

N 

II 

rt 

(-U0  + + w)  dt  + z (o) 

(27) 

2 . 4 Suspension  Forces 

Suspension  forces,  including  effects  of  viscous  and  coulomb 
damping,  suspension  stops  and  auxiliary  roll  stiffness  for  front 
and  rear  are  presented  below: 


For  i = 1,  2 (Front) 

, R (6,  - 6,) 

Si  = 2 (a  + b)  Ms  9 ' FSAi  - F1F,  " F2Fi  ' ^ ~2 (28) 


where 


F 


lFi 


F 


2Fi 


= sgn  6^ 


= kf 

V 

f°r  nFC 

VII 

•r| 

«o 

VII 

Qft 

= kf 

[^F 

5 . - 

l 

(XF  - 

1) 

^FC 

y 

for  6 . 
i 

< qfc 

- kf 

[ ^F 

6 . - 
i 

(x p - 

1) 

'Q__ 

FT 

]* 

for  6 ^ 

> ^FT 

(29) 

(30) 
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Si  = 2^%  b)  Ms  9 - FSAi  - F1Ri  - F2r.  + (-1)1 


R to 
R 'R 


(31)* 


s . = 
1 

a M 

2 (a+b)  s 

1 9 “ 

FSAi 

- F 

IRi 

F2Ri 

+ (- 

1) 

FlRi 

_ c ' < 
" R ‘ 

= gn 

h 

4 (Re. 

For  i 

= 3 , 

F2Ri 

•H 

** 

ii 

for 

s'rc  " 

! h s 

qrt 

■ KR  1 

[XR 

h - 

(XR 

- 1) 

nRC] 

, for 

h < 

JRC 

= KR  1 

iXR 

h - 

(Xr 

- 1) 

qrt  j 

| , for 

h > 

JRT 

R 


R 


LTR 


(64"63)  (31-A)  ** 
(32) 


(33) 


and 


h 

--T  ^R  + 

6 3 

(34)  * 

h 

T . 

= 4^  + 

2 *R 

s'3 

(35)* 

«4 

T 

--T^r 

+ 63 

(36)* 

^4 

T . 

= - 

+ «3 

(37)  * 

= 63 

(38) ** 

^3 

= 6*3 

(39) ** 

- 64 

(40) ** 

^4 

= 6 4 

(41) ** 

2 . 5 Wheel  Orientation 

The  orientations  of  the  wheels  with  respect  to  the  sprung 
mass  are  defined  toy  the  following  equations: 


*3  = *4  = ^R 


(42) 


Solid  Rear  Axle 
**Split  Rear  Axle 
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'S. 

II 

f(4l’  ^FNTJ  + FEE1  sgn  Fsi 

(43) 

^2  “ 

- f(62’  ^FNTf  + FEE2  sgn  FS2 

(44) 

^3  = 

f(63’  <V 

(45) ** 

^4  = 

f(64’ 

(46)** 

h = 

6FW1  + f^6l^FNT^  + eKl 

(47) 

K) 

II 

6FW2  “ f^62^FNT^  + €K2 

(48) 

T 3 

krs  ^R 

(49)  * 

II 

>• 

*3 

(50)  * 

*3  ■ 

£«3*TRR> 

(51) ** 

II 

f ^ 4^RR^ 

(52) ** 

Resultant  Forces  and  Moments 

The  resultant  tire  and  suspension  forces  and  moments , in- 
cluding the  anti-pitch  and  wheel  imbalance,  required  for  the 
equations  of  motion  are  given  below: 


£ F = £ F 

XU  . , XUl 

1=1 


(53) 


F . = 

XUl 

F„  . 
Ri 

0 + F . COS  f . 

Cl  i 

- F . SIN  f . 
Si  l 

(54) 

£ F 

yu 

4 

= £ 

i=l 

F 

yui 

(55) 

F . = 

yui 

-F  . 
Ri 

$ + F _ . SIN  f . 

Ci  l 

+ F0 . COS  f . 
Si  l 

(56) 

*Solid 

Rear 

Axle 

**Split 

Rear 

Axle 
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F • = • 

ZU1  Ri 


FRZ1  Fxul 


F = -F 
RZ2  xu 2 


Z - Z - (Z  +6  +h) 

RO  R 1 F 1 + l' 


I ZRO  " ZR  " (ZF  + 5 2 + h2} 


(57) 

(58) 

(59) 


XLl 

M 

LI 

rrim 

RPS1 

RPS1 

COS 

9 LI 

(60) 

XL  2 

ML2 

rrim 

RPS2 

RPS2 

cos 

9 L2 

(61) 

ZLl 

“li 

rrim 

RPS 1 

RPSl 

SIN 

9 LI 

(62) 

1 

ZL2 

«L2 

rrim 

RPS  2 

RPS2 

SIN 

9L2 

(63) 

BL, 

Y u 

= (F, 

yul  + 

F 9) 

yu2 

a - 

(F  0 + F A)  b 4- 

yu3  yu4 

(64) 

Tp  Tr 

(F  _ - F , ) -~S~  + (F  . - F J 
xu2  xul  2 xu4  xu3  2 


S N 


tfu 

F 


Tp  To 

~T  (S2  " Sl}  + T (S4  " S3)  " 


yul  (ZF 


1 ' “1  ^C* 


yu2 

T ' 
LF 


+ h. 

(ZF  + ^2  + h2  ~ HFC^  _ 


\ 


FRZ1  FRZ2 J 


T„  \ f 


F -F  IT 
xu3  xu4l  ANP  - 


^Fyu3  + Fyu4*  *CRRC  4 3 + HRC  + ZR* 


(65) 


S N9u  = (S1  + S2)  a - (S3  + S4)  b + Fxul  (zp  + 4X  + hx)  (66) 


Fxu2  (ZF  + 6 2 


h2) 


F . (z„  + 6 


lR 


xu  3 V R 


+ h3) 


+ F 
+ a (F 


2 ^R 

. ( z.  + 6 0 ~ — ^ + Yi*  ] — b (F  _+F  .)  TA  D 

xu4  ' R 3 2 R 4/  xu3  xu4  ANP 


+ F ) 
RZ1  RZ2; 


*Solid  Rear  Axle 
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Z N 


0U 


3 U 


II 

“k3 

(s2  - Sl) 

T 

+ R 

(s4  - S3) 

F . 
yul 

(ZF  t ij 

+ hx  - 

hfc) 

F 0 
yu2 

(ZF  + 62 

+ h2  - 

Hfc^ 

Fyu3 

(ZR  + 5 3 

+ h3 

HRC)  “ Fyu4 

<ZR  + 6 4 

? (si 

+ S2)a  - 

(S3  + 

s4)  b 

F , 
xul 

<ZF  T 51 

+ h1) 

- Fxu2  <ZF  " 

6 2 + h2> 

F 

xu3 

(ZR  + h 

t h3) 

~ Fxu4  (ZR  + 

5 4 ~ h4* 

(67) 


** 


- H. 


RC) 


(68) 


* * 


z n,d  = f ( + h_5zT;  - f A (~r  - h.tf 

0R  zu3y  2 3 zu4  \ 2 4 

- Fyu3  ( - ~2  * + h3)  - Fyu4  ^ + h4 


(69) 


+ (s3  - s4)  -f 


Radial  Tire  Force  and  Rolling  Radius 

The  radial  tire  forces  and  the  rolling  radii  of  the  tires  are 
computed  by  the  following  equations: 


Fd.  = K_.  (R  - h.  ) 
Ri  Ti  w l 


(70) 


where  the  initial  tire  loading  and  orientation  are  shown  below: 

:r] 


[hl(0) 

h3  (0) 

] + [! 

ZF 

(0) 

a+b 

1(0) 

= h2 (0) 

= R - 
w 



2KT1 

>F 

3(0) 

= h4(0) 

= Rw  - 

__2 

2KT3 

“UR 

_ 

b[hi (0) 

+ ZF] 

+ a^h 

3(0) 

NL 


+ 


a+b  SJ 


, , ML 
a+b/  S 


(0) 


a+b 
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where 


h. 

1 


" Z±  ; i = 1,2,3,- 


Z,  — Z — a 0 + ~rr~  $ + Z 


Z2  - 2 - a 


2 

T 

-j-  t + zp  + a 


-R 


Z^=Z+b0  + -f^  + Z+-^(zL+a 


R 2 R 
Tt 


z4  = Z + b 


T * + ZR  - "T  ^R  + s3 


Z3  — Z + b 9 + -Tj—  ^ -t-  ZR 


Z4  = z + b 0 - ^^  + zr  + 64 


(71) 

(72) 

(73)  * 

(74)  * 

(75)  ** 

(76)  ** 


2 . 8 Steering  Equations 

The  steering  equations  are  presented  below: 

(r+6  )I  = -H  6 +M  -M 
v FWi;  FW  i FWi  Ti  SSi 

i = 1.2 


(77) 


»CH  *CR  - -FCR  -CK  ^ ^ 

pl  2 

where  CFCR  = fbCR> 


(78) 


conditions 
T = N 


(Ksc  ^6sw  NG  5p 


SP 


)}  ■ 


5sw  ng  6p 


SP 


otherwise  T = 0 
P 


MSSi  KSLi 


[(a  - Ycr) 

6 - ^R- 

V FWi  a . 1 2 

FWi  a . 

t i - 

l 

>-f 


**Split  Rear  Axle 
*Solid  Rear  Axle 
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otherwise  M = 0 

bbl 


2 . 9 Wheel  Rotational  Equations 

The  wheel  rotational  equations  required  to  compute  wheel 
slip  are  presented  below: 


JWF  at  (RPS)i  = -Fci  hi  + TQ1  XB1 

IWF  dt  (RPS^  2 = ~FC,2  h2  + TQ2  ^ B2 

d 


lWF  dt  2 " C2  “2  1 "~2 

2' 


ID  (AR) 


WR 


dt  (RPS)3 


+ 


!d  (AR) 


2-i 


dt  (RPS) 4 


~FC3  h3  + TQ3  ^B3 


ID  (AR) 


2-, 


dt  (RPS)3 


- _Fc4  h4  + TQ4  ^ b4 


IWR  + 


!d  (AR) 


dt  (RPS) 4 


(79) 

(80) 

(81) 


(82) 


where 


(RPS^  = (RPS)io  + ft  fj-  [(RPS)J  dt 


(83) 


For  (SLIP) ± - 0 at  t = 0 

u (o)  COS  Y (o)  + v (o)  SIN  Y . (o) 

(RPS ) . = ^r— 7-t — (84) 

10  hi(o) 

and  where 


TQX 

= TQB1 

(85) 

tq2 

= ™B2 

(86) 

TQ3 

AR  — 

= -q-  TQ_ 
2 D 

+ TQB3 

(87) 

tq4 

AR  — 

= — tqd 

+ ™B4 

(88) 
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2 . 10  Wheel  Slip 


Computation  of  wheel  slip  is  performed  by  the  following 
equations : 


(SLIP) . = 1 for  £ . > 1 

l l 

= £.  for  -1  5 P.  « 1 
i si  _ 


(89) 


= -1  for  < -1 


where 


= 1 - 


(RPS) . h. 
i l 


u . COS  f . SIN  f . 
Gx  x Gi  x 


(90) 


2.11  Tire  Circumferential  Force 

The  circumferential  tire  forces  for  both  driving  and  braking 
are  defined  below: 


FCi  = - ‘T  FRi 


(91) 


2.12  Circumferential  Friction  Coefficient 

The  circumferential  friction  coefficient  equations  are 
shown  below: 


M-f  = m_.  (SLIP).  + p_.  for  (SLIP).  > S_  . 

x 2x  x Ox  x lx 

= m, . (SLIP),  for  (SLIP).  s S_  . 

lx  X X lx 


(92) 


where  nt,.  = - bQi 


. = 


^0i 


Ii  m. , - m„ . 

lx  2x 


(93) 

(94) 


2.13  Tire  Side  Force 

The  nonlinear  tire  side  forces  are  computed  using  the 
following  equations: 


Preliminary  computations: 
= tan 


1 r v 
_1  i Gi 


1 1 "Gil. 


- fi  sgn  uG. 


(95) 
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If  FRl  ? “tA2 


then  let 


e,  = 


A2  A3  (A4  - FRi>  FRi  ^CGi 


i = 1.2 


'4  [A1  FRi 


(FRi  - V ~ Ao  A2] 


A.  F_.  (F_.  - A„)  - A A 

1 Ri  Ri  2 o 2 


A. 


L . F_  . 
yi  Ri 


3 ') 

i 


(96) 

(97) 


If  FRi  4 


^rp  RA0, 


then  let 


i = 3,4 


, nAp  ka3  (ra4  - fRi)  fr1  ^cg1 
gi  ' “4  f“l  FRi  (FRi  - RA2>  - 


( 96-A) 


**1  FRi  (FRi  - RA2)  - ^2 

^2  V FRi 


(3  ■ -I-  0 ' ) 

1 ^ 1 


( 9 7 -A ) 


The  side  coefficient  of  friction  is  defined  below: 

ll  . - (0.85  + .0055  C ) SN  (.025)  i = 1,2, 3, 4 (97-B) 

ryi  v 


and 


v. 


2 2 
U + V 


(97-C) 


If  F > n A 
Rx  T 2 


then  let 


A2  A3  ClT  (A4  ~ °T  A2)  ^CGi 
A4  [A1  A2  (I2T  - 1}  - Ao] 

A,  A„  fi  (fim  - 1)  - A 


34  = 


i = 1,2 


IX  . F 
yi  Ri 


° (3  . + 6 ! ) 

1 1 


(98) 


(99) 
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If  F„.  > 


Ri  Qt  ^2’ 


then  let 


ra2  ra3  r^t  (ra4  - rqt  ra2)  ^cg. 
i RA4  [RAX  RA2  r0t  {r0t  - 1}  - RAq] 


= 


i = 3,4 


( 98-A ) 


RA  RA_  Rfi  (Rfim  - 1)  - RA 

0.  = — 1 2 !__* q (p  + p } 

V FRi 


( 99-A ) 


Define 


g(f  ±) 


ihlhl  +T76i3  lf  lpJ  < 3 


(100) 


Pi 


r<  . 

1 


if 


a . ^ 3 


i - 1,2, 3, 4 


Side  force  computations: 

f . = u . F_  . g (3~.  ) fF.l 
Si  yi  Ri  ^ l i ij 


(101) 


i = 1,2, 3, 4 


where 

sgn  F . = sgn  W . (102) 

bl  1 

and  where 

Fl  = f (SLIP) ± (103) 

The  quantity  q . is  empirically  derived  from  test  data. 
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2 . 14 


Velocities  of  Wheel  Centers 


The  velocities  of  the  wheel  centers  along  the  vehicle 
axes  are  computed  by  the  following  equations: 


ux  = u - — r+zpq 


u2  U 


T r + ZF  q 


u3  = u - -f  r + Zr  q 


u4=u+— r+zRq 


v - v + ar  - z_,  p - h,  p 
1 £ 1 


v„  = v + ar  - z_  p - h„  p 
2 F 2 


v = v - br  - zR  p - h3  (p  + jaR) 


v3  = V - br  - zR  P - h3  P 


v4  = v - br  - zR  p - h4  (p  + #R) 


v4  = v - br  - zR  p - h4  p 


w. 


f 4 

= w - aq  + p + o 


(104) 

(105) 

(106) 

(107) 

(108) 

(109) 

(110)  * 
(111) ** 
(112) * 

(113)  ** 

(114) 


* Solid  Rear  Axle 
**  Split  Rear  Axle 
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2 . 15 


F 

w2  = w - aq  - — p + 5 (115) 

• T 

w3=w+bq+63+-^  (^R  + p)  (116)* 

T 

w3  = w + bq  + 6 4-  P (117)** 

T 

w4  = w + bq  + 5*3 Y (jkR  + p)  (118)* 

T 

w4=w  + bq+64--^p  (119)** 


The  wheel  velocities  in  the  ground  plane  are  obtained  by: 

uGi  = ui  + gw.  (120) 

vQi  = v±  - (121) 


Tire  Moments 

The  tire-road  reaction  moments  acting  about  the  kingpins 
are  computed  by  the  following  equations: 

Mm.  = F . [”  PT . SIN  y.  “ Y . - COS  y.  + h.  (^.  COS  y.  (122) 

Ti  xui  L l r JSAi  i r l i 

- . )~\  + f . T-pt.  kk.  cos  y . - y„A . sin  y . + h. 

FSi  J yui  L l 1 1 2 SAi  X l 

(jrf.  SIN  y . - 0_.  )1  + F . F - PT . (jzf.  COS  y + 

i i Si  J zui  L x Si  i 


0 Si  SIN  fi>  + ySAi(9Si  cos  h - ^Si  SIN 

+ hi  Wsi  SIN  h - 8 Si  *1  C0S  V] 


- F (Y 
XLi  V SAi 


R, 


■WR 


) ; 


i = 1,2 


where 


SI  f(6i’  9fnt^ 


(123) 


S2 


= f(62>  eFNT}  + 9 2 


(124) 


*Solid  Rear  Axle 

**Split  Rear  Axle 
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^31 

^SAl 

+ ^ 

(125) 

^S2 

^SA2 

+ ^2 

(126) 

2.16  Wheel  Camber  with  Respect  to  the  Road 

The  camber  angles  of  the  wheels  measured  with  respect  to 
the  road  are  given  by: 


^CGi  = 9 SIN  ^ COS  f . + i = 1,2, 3, 4 (127) 

d = 0 : i = 3 4* 

*CGi  ' 


2.17  Brake  and  Drive  Torques 

The  drive  torques  generated  to  maintain  a constant  velocity 
are  computed  by: 

TQ  - K (V  - u)  , for  TQ  5 TQ  (128) 

UMAX 

= TQ  , otherwise  (129) 

°MAX 

where  Vc  is  the  desired  velocity. 

Values  of  1000  in-lb/in/sec  and  6000  in-lb  were  assigned  to 
Ktq  and  TQdmax  respectively.  When  braking  is  investigated,  the 
drive  torque  is  zero  and  the  brake  torques  are  step  inputs  with 
the  following  magnitudes: 


i — 1 

cq 

la 

Eh 

= TQB2 

= 100 

(PER)  in-lbs 

(130) 

TQB3 

■ ™B4 

= 100 

(PER)  in-lbs 

(131) 

where  (PER)  is  the  percent  of  the  total  brake  level. 


*Solid  Rear  Axle 
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3 . NOTATION  AND  LIST  OF  SYMBOLS 
3 . 1 Notation 


The  time  derivative  of  a variable  is  indicated^  by  a dot 

d6  •;  d26 


over  the  symbol  for  the  variable  fi.e 


6 tit’ 


d t4 


Also:  1 degree  = 0.0174532925  radians 

1 g = 386.4  in/sec^ 


The  following  subscript  notation  is  employed: 

F = front 

R = rear , or  rear  axle 
s = sprung  mass 
u = unsprung  mass 

i = wheel  number,  1 - right  front,  2 - left  front, 
3 - right  rear,  4 - left  rear 


3 . 2 List  of  Symbols 


a,b  = distances  along  the  vehicle  fixed  X 
axis  from  the  sprung  mass  center  of 
gravity  to  the  spin  axes  of  the  front 
and  rear  wheels,  respectively,  inches. 


a^  = length  of  steering  linkage  arm,  inches. 

a = length  of  steering  arm,  inches. 

P 


Aq , A^,  A^,  A^ , A^  = constant  coefficients  in  parabolas  to 

represent  tire  cornering  and  camber 
stiffness  in  front  tires. 


AR  = drive  axle  ratio. 


Ay 


v 


+ ru 


wp,  lateral  acceleration. 


B^,  B^ , B^  = constant  coefficients  for  curves  fitted 
to  the  lateral  friction  coefficient 
properties . 

CCR  = viscous  damping  coefficient  of  steering 
system  connecting  rod,  lb-sec/in. 


CFCR 


coulomb  damping  coefficient  of  steering 
system  connecting  rod,  pounds. 
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F 

xui 


C 


F 


} 


R 


) 


'R 


FCi 


FRi 


SAi 

FSi 

XLi 


F F 

’ yui ’ zui 


ZF  , ZF 
xu ’ yu 


FlFi ’ FlRi 


F F 

2Fi’  2Ri 


f ^i’  ^FNT^ 


g(3±) 


hi 


= viscous  damping  coefficient  for  a 
single  wheel,  effective  at  the  wheel 
for  the  front  and  at  the  spring  for 
the  rear  suspension,  at  the  front 
and  rear,  respectively,  lb-sec/in. 

= coulomb  damping  for  a single  wheel, 
effective  at  the  wheel  for  the  front 
and  at  the  spring  for  the  rear  sus- 
pension, at  the  front  and  rear,  res- 
pectively, pounds. 

= longitudinal  force  in  tire  coordinate 
system  at  wheel  i,  pounds. 

= radial  tire  force  at  wheel  i,  pounds. 

= shock  absorber  damping  force,  pounds. 

= lateral  force  in  tire  coordinate  sys- 
tem at  wheel  i,  pounds. 

= unbalanced  force  in  front  wheel  due 
to  wheel  unbalance,  pounds. 

= components  of  the  tire  force  on  wheel 
i in  the  body  coordinate  system,  pounds. 

= summation  of  the  forces  acting  on  the 
sprung  mass  along  the  vehicle  X and  Y 
axes,  pounds. 

= coulomb  damping  forces  in  front  and 

rear  suspensions,  at  an  individual  wheel, 
effective  at  wheels  in  front  and  at 
spring  locations  in  rear,  pounds. 

= suspension  forces  produced  by  deflection 
of  springs  and  elastic  travel  limits, 
pounds . 

= change  in  front  wheel  toe-in  angles 
relative  to  the  vehicle  fixed  coordi- 
nate axes,  radians. 

2 

= acceleration  of  gravity  = 386.4  in/sec 

= non-dimensional  side  force  at  wheel  i. 

= rolling  radius  of  wheel  i,  inches. 

(See  Figure  A-2) 
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II 

•H 

as 

front  wheel  viscous  damping  coefficient, 
in-lb/rad/sec . 

i = 

wheel  identification  - 1,2, 3, 4 = RF, 
LF,  RR,  LR,  respectively. 

XD  = 

drive  line  moment  of  inertia  for  rear 
wheel  drive,  lb-sec^-in. 

ZFW 

moment  of  inertia  of  one  front  wheel 
about  the  kingpin  axis,  lb-sec2-in. 

II 

H 

rear  unsprung  mass  moment  of  inertia 
about  a line  through  its  center  of 
gravity  and  parallel  to  the  X axis, 
lb-sec2-in . 

IWj 

rotational  inertia  of  individual  wheel 
at  front  and  rear  (j  = F,  R) , res- 
pectively, lb-sec^-in. 

I = 

X 

roll  moment  of  inertia  of  sprung  mass, 
lb-sec^-in . 

H 

II 

pitch  moment  of  inertia  of  sprung  mass, 
lb-sec^-in . 

I = 

Z 

yaw  moment  of  inertia  of  sprung  mass, 
lb-sec^-in . 

I 

xz 

2 

product  of  inertia,  lb-sec  -in. 

II 

*N 

pH 

suspension  load-deflection  rate  for  a 
single  wheel  in  the  quasi-linear  range 
about  the  design  position,  effective 
at  the  wheel  for  the  front  and  at  the 
spring  for  the  rear  suspension,  at  the 
front  and  rear,  respectively,  lb/in. 

krs  = 

roll  steer  gain  of  rear  wheels  relative 
to  the  vehicle  coordinate  system,  rad/rad. 

cn 

O 

II 

steering  column-gear  box  flexibility, 
in-lbs/rad . 

(-3 

II 

radial  tire  rate  in  quasi-linear  range 
for  a single  tire,  lb/in. 

II 

a 

Eh 

gain  in  drive  torque  equation  for  con- 
trolling vehicle  velocity,  in-lbs/in/sec. 

EM  = 

total  vehicle  mass,  lb-sec  /ft 
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M 


EM 

M 

CR 

M 

s 
SSi 


M . 
Ti 


M 


uF 


Mi 

= M 

2 

MuF 
- 2 

m3 

II 

5 

c 

S3 

m3 

= M4 

M 

uR 
- 2 

M1C1 , 

M1C2, 

M1C3 

EN 

! 

EN 

EN, 


cpu 

9u 

fu 


N„ 


N, 


EN 


cpR 

p,  q,  r 


PT 

RA0,ra1,ra2,ra3,ra4 


2 

total  vehicle  mass,  lb-sec  /ft. 

mass  of  steering  system  connecting 
rod,  lb-sec2/in. 

sprung  mass,  lb-sec2/in.  (See  Figure  A-3) 

steering  torque  applied  by  steering 
system  connecting  rod,  in-lbs. 

moment  about  the  kingpin  axis  due  to 
the  tire-ground  contact  forces,  in-lbs. 

front  unsprung  mass  (both  sides) , 
lb-sec2/in . 

front  unsprung  mass  at  a single  wheel, 
lb-sec2/in.  (See  Figure  A-3) 

rear  unsprung  mass,  lb-sec2/in. 

(See  Figure  A-3)  (solid  axle) 

rear  unsprung  mass  at  a single  wheel, 
lb-sec2/in.  (split  axle) 

constant  coefficients  for  curves  fitted 
to  the  tire-road  circumferential  fric- 
tion coefficient  properties. 

gear  ratio  of  steering  gear  box. 

gear  ratio  of  steering  linkage. 


summation  of  moments  produced  by  forces 
acting  on  the  unsprung  masses,  lb-in. 


summation  of  rolling  moments  acting  on 
the  rear  axle,  lb-in. 

scalar  components  of  sprung  mass  angular 
velocity,  taken  along  X,  Y,  Z axes, 
respectively,  rad/sec.  (See  Figure  A-3) 

caster  offset  of  front  tires,  inches. 

constant  coefficients  in  parabolas  to 
represent  tire  cornering  and  camber 
stiffness  in  rear  tires. 
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Rp,  R„  = auxiliary  roll  stiffness  (suspension 
stiffness  in  roll) , at  the  front  and 
rear  suspensions,  respectively,  in-lb/rad. 


(RPS ) = rotational  velocity  of  wheel  i,  rad/sec. 

R = undeflected  radius  of  wheels,  inches. 

R^r  = width  of  wheel  rim,  inches. 

S ^ = total  suspension  force  produced  by  the 
combination  of  springs,  travel  stops, 
viscous  damping,  friction,  and  auxiliary 
roll  stiffness,  effective  at  the  wheel 
for  the  front  suspension  and  at  the 
spring  location  for  the  rear  suspension, 
at  wheel  i,  pounds. 


(SLIP) . = longitudinal  braking  slip  at  wheel  i. 

Tp,  Tr  = track  width  at  front  and  rear,  respec- 
tively, inches.  (See  Figure  A-2) 


T = Pitman  torque  applied  to  connecting  rod, 
P in-lb. 


Tg  = distance  between  spring  connections 
for  solid  rear  axle,  inches.  (See 
Figure  A-2) 

TQ  ^ = brake  torque  at  wheel  i,  in-lb. 

TQ  ^ = drive  torque  at  wheel  i,  in-lb. 

(TQ  ) = maximum  drive  torque,  in-lb. 

' D max  ’ 

u , v,  w = scalar  components  of  linear  velocity 
of  the  sprung  mass,  taken  along  the 
X,  Y,  Z axes,  respectively,  in/sec. 
(See  Figure  A-3) 


u,  v,  w = scalar  components  of  linear  acceleration 
of  the  sprung  mass,  taken  along  the  X, 

Y,  Z 


axes,  respectively,  in/sec^ 


u = longitudinal  velocity  of  the  tire-road 
1 contact  point  of  wheel  i,  in/sec. 


v 


Gi 


lateral  velocity  of  the  tire-road  con- 
tact point  of  wheel  i,  in/sec. 


37 


BCE-T-0367 


V 


V. 

l 


x,  y,  z 


X,  Y , Z 


Y 


CR 


YSAi 


z . 

l 


z 


F 


z 


R 


3 

Si 

s"i 

si 

6FWi 

6P 

6 sw 


= total  vehicle  velocity,  in/sec. 

= desired  vehicle  velocity,  in/sec. 

= velocity  of  wheel  i,  in/sec. 

= coordinates  of  vehicle  center  of  gravity 
in  the  inertial  coordinate  axes  system, 
inches . 

= vehicle  fixed  coordinate  system  defined 
as  shown  in  Figure  A-3. 

= connecting  rod  displacement,  inches. 

= distance  along  the  wheel  spin  axis  from 
the  kingpin  axis  to  the  wheel  center 
line,  inches. 

= distance  between  center  of  wheel  i and 
road,  inches. 

= static  distance  along  the  Z axis  between 
the  center  of  gravity  of  the  sprung  mass 
and  the  spin  axis  of  the  front  wheels, 
inches . 

= static  distance  along  the  Z axis  be- 
tween the  center  of  gravity  of  the  sprung 
mass  and  the  spin  axis  of  the  rear  wheels, 
inches.  (See  Figure  A-2) 

= vehicle  body  angle  of  sideslip,  radians. 

= slip  angle  at  wheel  i,  radians. 

= non-dimensional  slip  angle  variable  for 
wheel  i. 

= "equivalent  slip  angle"  produced  by 
camber  at  wheel  i. 

= front  wheel  steer  angle  produced  by  steer- 
ing system,  radians. 

= Pitman  shaft  angle,  radians. 

= steering  wheel  angle,  radians. 
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1 > §2>  ^3  = suspension  deflection  relative  to  the 
vehicle  from  the  positions  of  static 
equilibrium,  at  the  right  front  wheel 
center,  left  front  wheel  center,  and 
rear  axle  roll  center,  respectively, 
inches.  (See  Figure  A-3)  (solid  axle) 

6^  = suspension  deflection  relative  to  the 

vehicle  from  positions  of  static  equi- 
librium, at  the  right  rear  wheel  center 
and  left  rear  wheel  center,  respectively, 
inches  (split  axle)  . 

a = static  front  wheel  toe-in  offset  angles, 
radians . 


C = dead  space  play  in  connecting  rod  ex- 
cursion, radians. 

CSP  = dead  space  play  in  steering  system, 
radians . 


C4  = suspension  deflections  relative  to  the 
vehicle,  from  the  positions  of  static 
equilibrium,  measured  at  the  right, 
and  left  rear  spring  positions,  respec- 
tively, inches. 

9S^  = caster  angle  as  a function  of  relative 
vertical  deflection  between  wheel  and 
body,  radians. 

\ p , = term  by  which  Kp  and  KR  are  multiplied 

to  represent  the  suspension  spring  rate 
when  the  suspension  deflection  stops 
are  encountered. 


ll  . = friction  coefficient  for  side  forces, 

yi 

ll'  = circumferential  coefficient  of  friction. 

1 

cp , 9 , V = Euler  angles  - roll,  pitch,  and  yaw 

angles  - defining  the  attitude  of  the 
sprung  mass  relative  to  the  space-fixed 
axis  system,  radians. 


^CGi 


camber  angle  of  wheel  i relative  to  its 
tire-terrain  contact  plane,  radians. 
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;pR  = angular  displacement  of  the  rear  axle 
relative  to  the  vehicle  about  a line 
parallel  to  the  X-axis  through  the  rear 
axle  roll  center  (positive  when  clock- 
wise as  viewed  from  the  rear) , radians. 

(See  Figure  A-2) 

"D  . = kingpin  inclination  angle,  radians. 

o 1 

cp-j^,  cp 2 = right  front  and  left  front  wheel  camber 
angles,  respectively,  relative  to  the 
vehicle-f ixed  coordinate  axes,  positive 
when  clockwise  as  viewed  from  the  rear, 
as  a function  of  relative  vertical 
deflection  between  wheel  and  body,  radians. 

Y^,  Y 2 = heading  angle  of  front  wheels  relative 
to  vehicle  coordinate  axes  system, 
positive  for  clockwise  steer  as  viewed 
from  above  vehicle,  radians. 

Y 3 , Y4  = heading  angle  of  rear  wheels  relative 
to  vehicle  coordinate  axes  system, 
positive  for  clockwise  steer  as  viewed 
from  above  vehicle,  radians. 

QRC > ^RC  = maximum  suspension  deflections  in  com- 
pression from  the  positions  of  static 
equilibrium  relative  to  the  vehicle  for 
quasi-linear  load-deflection  character- 
istics of  the  springs,  inches. 

Qrt,  QR(p  = maximum  suspension  deflections  in  ten- 
sion from  the  positions  of  static 
equilibrium  relative  to  the  vehicle  for 
quasi-linear  load-deflection  character- 
istics of  the  springs,  inches. 

= multiple  of  A^  at  which  the  assumed 
parabolic  variations  of  small-angle 
cornering  and  camber  stiffness  with 
tire  loading  are  constant. 
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Fig.  A-2  REAR  AXLE  REPRESENTATION 
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Fig.  A-3  ANALYTICAL  REPRESENTATION  OF  THE  FOUR-WHEELED  VEHICLE 
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APPENDIX  B 

FOUR-WHEELED  VEHICLE  HYBRID  SIMULATION 
» IMPLEMENTATION  DOCUMENTATION 


1.  PRESENTED  HERE  IS  THE  COMPUTER  LISTING  OF  THE 
DSL/91  DIGITAL  STATIC  CHECK  PROGRAM 
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r **********  LISTING  OF  DSL/91  digital 

T I TLF  nun  PRDR:62  VEHICLE  SIMULATION  Uuu 


PROGRAM  ********** 


I NCON 

SHAPE  1 

=-.0065 

»SHAPE2=-.0037 

* SH A PF  3= .0050 

♦SHAPE4 

=.0029 

INCON 

DEL  IDT 

= 10. 

*DEL2DT=15, 

* DEL2 

= 1.866 

I NOON 

DEL  3DT 

= 2n. 

» OEL3  = O.H 

♦DEL4DT=70. 

» DEL4 

= 7. 

INCON 

ThfTaI 

= 60  . 

♦ THET  A2  = 37 . 5 

* ERR  1 =1. 

♦ ERR2 

= -0.6 

INCON 

PH  T RD 

= .55 

*DFW1DT=30. 

* DF  W 1 

= 0.35 

INCON 

DFW2DT 

= 37. 

» DF W?  =0.15 

» Y C R D T =80. 

♦ YCR 

= 2.55 

INCON 

RPS1 

=47.06 

» RPS2  =43.06 

* R P S 3 =43.057 

♦XPS3DT 

=10000. 

TNCON 

RPS4 

=47.057 

♦ XPS4DT=1 0000 . 

* SEL3DT  = 69 . 

» SEL3 

= 3.75 

PARAM 

AMS 

=5.162 

* A MUF  =0.359 

*AMUR  =0.574 

* TS 

= 35.86 

PARAM 

ATR 

= 800. 

♦ RF  =8  1 E03 

* TF  =54.3 

♦ RR 

=50E03 

PARAM 

AKT  1 

= 81  2. 

♦AKT2  =812. 

♦ AKT3  =1192. 

♦ AKT4 

=1192. 

PARAM 

RW 

= 1 ? • h5 

♦ A I F W =5.815 

* AH  1 =200. 

* AH2 

= 200. 

PARAM 

AMCR 

= 0.08 

» CFCR  =200. 

« CCR  =11. 

♦ AP 

= 6.06 

PARAM 

A A 1 

= 5.53 

* A A 2 =5.53 

* ANG  =17.5 

* AKSC 

= 610. 

PARAM 

ESP 

• " f'  • 

♦AKSL1  = 1 • 1 7E5 

* AKSL 2 = 1 • 1 7E5 

* EP  1 

=-.2000 

PARAM 

FP2 

= -.l 

♦ A I WF  =7.3777 

* A I D =0.3 

* ARRR 

=4.125 

PARAM 

A I WR 

=7.3777 

♦ AKF  =133. 

» AKR  =185. 

* ALAMF 

= 5.1 

PARAM 

AL  AMR 

= 4.0 

» OFC  =-2.4 

♦OFT  =2.3 

* ORC 

= -3.1 

PARAM 

ORT 

= 2.2 

♦ CFP  =25. 

» CRP  =45. 

♦ TR 

= 53.3 

PARAM 

A KF  1 

= 5?  • 2 

♦ A K F2  =52.2 

♦ AKF3  =100. 

♦ AKF4 

= 100. 

PARAM 

AKR3 

= 1 0 0 , * 

AKR4  =100. 

PARAM 

D A 0 1 

=.0475 

* DA  0 2 =-.7654 

* DA  03  =.0  290. 

DA04  = 

.3333 

PARAM 

0 A 05 

= .2656 

* D A 0 6 = .3750 

* DA  07  =.2330 

♦ DA  0 8 

=-.2000 

PARAM 

DA  09 

=-.1775 

♦ D A 1 0 =.1425 

♦ 0 A 1 1 =.2666 

♦ DA  1 2 

= .1733 

PARAM 

D A 1 3 

=.2166 

♦ D A 1 4 =.7942 

. D A 1 5 =-.2000 

* DA  1 6 

=.4384 

PARAM 

DAI  7 

= .0340 

» D A 1 8 =.4000 

* DA21 

=.0505 

D A 26  =.7860 


DA30 
DA  3 3 


=-.3750 
=-.1181 
D A 1 9 = ♦ . 0 4 0 
PHIR  =.01895 


PARAM 
PARAM 
PARAM 
PARAM 
PARAM 
* 

*unscaled  dac  values  for  system  equations 


DA27  =.0450  * DA28  =-.37 

DA3 1 =-.4150  ♦ DA32  =-,1180*  DA36  =.2440 

DA  34  =-.1277*  DA35  =-.0950 

DA00=-.5678 

DELI  =.3830*  DA20  =.006  ♦ DA29  = .1 


DACOO 

s 

nAOO*10000 . 

DACOl 

- 

r>A0  1*10. 

DAC  0 2 

= 

HA02*10000. 

DAC03 

= 

DA03*10. 

DAC04 

= 

PA04*20 . 

DAC05 

= 

DA05*10000  . 

DAC06 

= 

DA06*20, 

DAC07 

= 

DA07*10000. 

DACOR 

= 

PA0R*40000. 

DAC  09 

= 

PA09*40000 . 

DAC  1 0 

= 

DA  1 0*1 0 . 

D A C 1 1 

= 

DAI  1*1  0000. 

D AC  1 2 

= 

DA12*100. 

DAC  1 3 

= 

nA13*l0000. 

D AC  1 4 

3 

DA  1 4* 1 0 0 . 

DAC  1 5 

3 

PA15*100. 

DAC  1 6 

3 

r>A]  6*20. 

DAC  l 7 

3 

DA17*10. 

DAC  1 8 

3 

DAI  8*20 . 

DAC  1 9 

3 

DA19*10. 

DAC20 

= 

P A20*20 . 

DAC21 

3 

DA21*20. 
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DAC2? 

s 

r»A?2*20  ® 

DAC23 

a 

PA?3*1500. 

DAC24 

a 

n A?4* 1 500* 

DAC25 

a 

nA?5# 1500 . 

DA  C?8 

a 

0A26* 1 50  0 • 

DAC27 

a 

n A?7*20 , 

DAC2R 

a 

DA?8#20  » 

0AC29 

= 

0 A 29*20 . 

DAC30 

a 

OA30*20. 

D AC  3 1 

a 

nA31*20. 

DAC36 

a 

nA16*l0000. 

contrl  tstart 

0.0,FINTIMa.0  0.1  *DFLTa,001 

DERIVATIVE  RFGInN 


^SYSTEM  FOUAT 

IONS 

W 

CFRONT  WMFEL 

EQUATIONS  OF  MOTION 

FR1 

= PH01#AKT1 

FR2 

= OH02^AKT2 

DFL1DD 

= SMP/AMS  - 2.*FR1/AMUF 

♦ 2.»S1P/AMUF 

DEL2DD 

= SMP/AMS  - 2.*FR2/AMUF 

♦ 2.*S2P/AMUF 

DAC05 

DAC07 


fl-RF  A R WHFFLS  ANn  AXLE  COMBINATION 
* 

*SOLID 


FR.l  = oH03»AKT3 

FR4  s PH04* AKT  4 

DEL 300  = FMP/AMS  ♦ ( S3P  ♦ S4P  - FR3  - FR4  ) / AMUR  ♦ 0AC13 

PHTRDO  =<S3P-S4P)*(TS/(2.*AIR)  ) ♦ ( FR3/ ( 2 . * AK T3 ) )#DAC12+... 
(FR4/(2.*AKT4) ) *DAC14*0AC15 


*SPLI  T 

■» 

SFL3DD  = RMP/AMS  ♦ ( 2 , *S3P  - 2.»FR3)/AMUR  ♦ DAC11 
SFL40D  = BMP/AMS  ♦ (2.*S4P  - 2.*FR4)/AMUR  ♦ DAC36 

•» 

^SUSPENSION  FORCE  EQUATIONS 


F S A I 

= 11.1 

F S A 2 

= 48.0 

FSAl 

= 9B.l 

FSA4 

= 40.7 

F2F  1 

= 20,0 

F2F2 

=511.9 

F1F1 

= -CFP 

F1F2 

= -CFP 

F2R3 

=1 1 3.9 

F2R4 

1! 

> 

. 

FIR! 

S «CRP 

F1R4 

- -CRP 

*FRR 1 » ERR?  OENOTF  LIMITER  SETTINGS 
* 


AUXRL1  = ( (DEL  2-DEL  1 ) -ERR  1 ) * ( RF/ ( TF#TF ) ) 
AUXRL2  = (- (DEL2-DEL1 ) -FRR?) * (RF/ <TF#TF) ) 

SIP  - ftUXRLl  - FSAl  - F2F1  ♦ F 1 F 1 

S?P  = AUXRL2  - FSA?  - F2F2  * FIF2 

S3P  = - (PR/TS) «PHIR  - FSA3  - F2R3  * F 1 R 3 
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F2R4  ♦ F1R4 


S4P 

SMP 

<y 

oSOLTO 

«• 

ZFT3 
ZET  30T 
ZET4 
ZET4DT 

•» 


= (Rp/TS) *PH  I R - FSA4  - 
= F 1 P ♦ S?P  ♦ S3P  ♦ S4P 


= (TS/2.)*PHIR  ♦ DEL 3 
= ( TS/2. ) OPHIRU  ♦ DEL3DT 

= - (TS/2. ) *PHIR  ♦ DEL3 
= - ( TS/2. ) "PHIRD  ♦ DEL3DT 


*RaDTAL  TIRE  FOOCF  AND  ROLLING  RADIUS  EQUATIONS 


RHO  1 

= nELl 

♦ DAC01 

HI 

s PW  - 

RHOl 

RH02 

= nEL? 

♦ DAC03 

HP 

= p W - 

RH02 

*SDLTD 


PH  03 

= DEL  3 

♦ (TR/?.)*PHIR 

♦ D AC  1 7 

RH04 

= DEL3 

- ( TR/2 • ) *PH I R 

♦ DAC19 

H3 

s PW  — 

RHO  3 

H4 

= PW  - 

RH04 

»STFFRING  SYSTFm  FQUATIONS 
# 

nFwinn  = ( 1 ,/Alrw) * (-ahi*dfwidt  - amssd-  dacoo 

OFWPDD  = ( 1 ./AIFW) * (-AH2*DFW2DT  - AMSS2 ) - DAC02 
YCRDD  = ( 1 ,/AMCR)  * (-CFCR  - CCR»YCRDT  ♦ Tp/AP  ♦ AMSSl/AAl 
AMSS2/AA2) 


*ESP*FP1*FP2  DEMOTE  LIMITER  SETTINGS 
# 


TP  s aNG* ( AKSC* (DAC10  - ANG# ( YCR/ A P ) -ESP/2 . ) ) 

A MSS  1 = AKSL1*  ( (DFW1-YCR/AA1 ) -EP1/2.  ) 

AMSS?  = AKSL2*  ( (0FW?-YCR/AA2) -FP2/2.  ) 


*WHFFL  ROTATTONaL  EQUATIONS 


RPS1DT  = (-FC1*H1  - DACOA  )/AIWF 

RPS2DT  = ( -FC2*H2  - DACOfl  )/AJWF 

DFNOM  = A T WP  ♦ A I D* ARBR* A RRR /4 . 

TERM  = A In»ARHR*ARHR/4. 

RPS3DT  =(-FC3*H3  - DACnQ  - TERM»XPS4DT  ) /DENOM 
RPS4D T =(-FC4*H4  - D AC 09  - TERM*XPS3DT  ) /DENOM 


«WHFFL  SLIP 

SLTP1 

= xll 

SLIP2 

= Xl? 

SLIP3 

= X I 3 

SLIP4 

= X I 4 

XII 

= 1 . - RPS1*H1 /0AC24 

XI? 

= 1 . - RPS2«H2/DAC2S 

X I 3 

= 1.  - RPS3»H3/DAC26 

X I 4 

= 1.  - RPS4»H4/DAC23 

* unit  TIRF  C 

IRCIIMFERFNTIAL  FORCE 

FC1 

= -U1P*ER1 

FC2 

= -U?P*FR2 

FC3 

= -U3P*FR3 

• • • 
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FC4 


U4P*FR4 


« 

» CIRCUMFFRFNTI aL  FRICTION  COEFFICIENT 


* 

«SPfl 

« 


RE 


TERM’ 

■» 

■»lSP0 
<*  R E M / 


U1P 

= SLTP1»(  D AC?? 

U2P 

= SLIP2«M  0AC28 

U3P 

= SUP3*(  DAC30 

II4P 

s 8LIP4*(  DAC31 

TIRES 

TTN 

slF-04 

THFR1 

=TnFTA1 /57.3 

THFR2 

=ThETA2/57.3 

THFIOI 

=57.3#RPS1 

THFPOT 

= 5 7 • 3*RPS? 

1 A L 

'OTS 

NINO  680  POTS  OBTAINED 

POO 

=oelidt/ioo. 

PIP 

= 0E|_3/1  0 • 

P?0 

= 4 . *PH  I R 

P23 

=pH I RD 

P30 

=reli/io. 

P37 

=nEL20T/l 00. 

P38 

=nEL2/10. 

P4  3 

=nFL3DT/lO0. 

P4R 

=SEL30T/1 00. 

P57 

=SEL3/10. 

P77 

=OEL4DT/100. 

P7B 

=OFL4/10. 

PRO 

=thftai/?oo. 

P95 

=THFTA2/200. 

A 0 0 0 

= -F'EL  IDT/1  00. 

A 0 0 ? 

=DFL1/10. 

A005 

=-OEl 2DT/100. 

A 0 0 7 

=DFL2/10. 

A 0 1 0 

s-nE|  30T/100. 

A 0 1 ? 

= 0Fl_  3/ 10. 

A 0 1 5 

=-PHIRO 

A 0 1 7 

=4,*PHIR 

A 040 

=-REL3DT/100. 

A 050 

=SFL3/10. 

A 0 P 0 

=-OEL4DT/100. 

A 0 85 

=DFL4/10. 

AORO 

=TmETA1/?00. 

A 0R5 

=ThETA2/?00. 

A110 

=~pPS3/100. 

A 1 1 5 

s-oPS4/100. 

A 0 03 

=“OFL 1/10, 

A 0 04 

=STN (THER1 ) 

A 0 06 

=FRR?/10. 

A 0 0 8 

s-m1»RPS1/DAC24 

A 0 OR 

=C0S (THER2) 

A 0 1 1 

=AnXPL2/1000. 

A 0 1 4 

=“C0S(THER1) 

DAC04  ) 
DAC06  ) 
0 AC  1 6 ) 
DAC18  ) 


FROM  I POT 


♦ 0 A C 2 0 

♦ DAC21 

♦ DAC27 

♦ DAC?R 


SUBROUTINE 
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A 0 1 6 s-SlP/1  000. 

A01P  sHl *PPS1/1500 . 

A 0 1 9 =S1P/1000. 

A0?0  =S|  I PA 

a o? i s-s2p/ionn. 

AO??  =RpS4DT/10000. 

A023  =-FCl / (4.*AKT1  ) 

A024  =S?P/1000. 

A 0 ?5  =-S3P/1000. 

A 0 ?5  =- (HI *FR1*U1P) / (60,*AKT1 ) 

A 0 ?9  =SlP/1000  , 

A 0 3 0 =U3P/2. 

A 0 3?  =SHAPE1 

A 0 3 3 =SH APE2 

A 0 3 A =STN(THER1) 

A 0 35  =ZFTADT/100. 

A 0 35  =”7ET3/10. 

A 0 37  =StN(THFR1) 

A03«  =SHAPE3 
A 0 39  =S  T N ( THER2 ) 

A 0 A 1 = (JaP/2  • 

A 04?  =STN(THER2) 

AOAA  =SmAPEA 
A 045  =-7ET4/lO, 

A 0 45  =ZrT3DT/l00. 

A 0 4fl  =Rw03/2. 

A 049  =-H3/15. 

A 05 1 S-54P/1  000. 

A 053  =H5*«PS2/1500 . 

A 0 54  =S4P/1000. 

A 055  = (S3P-S4P) /2000. 

A 055  s-RPSl/100. 

A 057  = - A 0 3 9 

A 055  =Rw04/2. 

A 059  =-H4/15. 

A 050  sAllXRLl /I  000. 

A 05 1 =-rPS2/100. 

A 0 5?  =-A  0 1 4 

A 0 5 3 s- (H?*FR?*U2P) / (60.#AKT2) 

A 054  = -5L  T P3 

A 055  =- (DEL2-DEL1 ) /10. 

A 055  =SmP/1000. 

A 055  =-rC?/ (4.*AKT?) 

A 059  s-a034 

A 0 7 0 =FOR1/10. 

A07?  =-5lN ( THER1 ) 

A073  =-w3»RPS3/DAC?5 

A 0 75  =- ( (SLIP4«DAClfl*DAC29) /20. ) 

A 0 75  =RPS3DT/1 0000, 

A 077  sCPS(THERl) 

A 0 75  =H3*RPS3/1500. 

A 0 5 1 =Sl  IP2 

A OH?  =-5 1 M ( THFR2 ) 

A 0 5 3 =-(H3»FR3*U3P) / (50,*AKT3) 

A 0 54  =-h2/15. 

A055  =-RH0l/2. 

A 057  =CnS ( THER2 ) 

A 0 5 P =-FC3/ (4.«AKT3> 

A 059  =-M 1 / 1 5 • 

A 09 1 =UjP/2. 
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■» 


•tt 

■ft 


A09?  =$|  IP3 

A 0 9 3 =-h2»RPS2/DAC?5 

A094  =- ( (SLIP3«DAC] 6*0AC?7) /20. ) 

A 096  =-PH0?/2. 

A 0 9 7 = -Fl_  IP4 

A0Q9  =STN(THEP2) 

AlOO  = RpS 1/100, 

A 1 0 1 =S|  IP1 

Ain?  =-9Lipi 

A 1 0 3 =-h4*RPS4/0AC?3 

A 1 0 4 = - ( (SLIP1*OAC04*DAC?0) /20. ) 

AlOft  = -r,'H03/2. 

AlOft  =RpS?/100. 

A 1 0 ft  =Ha*RPS4/1500. 

A 1 0 9 =- ( (SL IP?*DAC06*OAC21 ) /20. ) 

A 1 ] 1 =UPP/2. 

4113  = - fH4*FR4*U4P) / (60.*AKT4) 

A 1 1 4 = - 9 L I P ? 

A 1 1 ft  =-PH04/2. 

A 1 1 7 = -/\0r7 

A 1 1 fl  =-FC4/ (4.«AKT4) 


noon 

=DFLinn/iooo. 

noo2 

= -r>F|_  10T/100. 

ooos 

=qfl?do/iooo. 

noo7 

= -OFl 20T/100. 

noi  o 

=DF|_3DD/1 000 . 

001? 

=-oEL3DT/100. 

noift 

=PMlR00/l 0. 

0017 

=-PH I RO/2 . b 

0040 

=SrL3no/inoo. 

DORO 

=-ftFL3DT/100. 

oo«o 

=SFL40D/1000. 

DORft 

=-nFL40T/l 00. 

0090 

=ThF10T/?000. 

0 0 9ft 

=TwF2DT/2000. 

0100 

=-upsiot/iooo. 

010ft 

=-wPS2DT/l 000. 

Olio 

=RPS3DT/1000. 

D1 1ft 

=RpS4DT/1000. 

■R  POTS 

0200 

=aKF1*10.0*TIN 

0201 

= . R 1 86 

020? 

= 1 .0/ (20.0«AMCR) 

0203 

= . 6 1 8 R 

0204 

= P.0/3.0 

020ft 

=ycrdt/?oo. 

020ft 

= YCP/3 • 

0207  = 

.?nOn 

0208 

= 0F  W2DT /10  0. 

0209 

=?.*DFW2 

0210 

=AKR3*1 0.0*TIM 

Q?1  1 

=.7692 

0212 

= AH?/ ( 100.0*AIFW) 

0213 

=.7803 

0214 

= AKSL2/ (40000. O^AIFW) 

021ft 

=AKR4*10.0*TIN 
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00008700 


« 

*231 


021  6 

x . 7692 

0?1  7 

= 3.0*ANG/ ( 10.0*AP) 

0218 

=. 7803 

02  IP 

= AKSC*ANG/(AP*?000.0) 

0220 

sAKF2*10.0*TIN 

0221 

x » 5 1 8 6 

0222 

= AH1/ ( 100.0*AIFW) 

0223 

x.6188 

0224 

= aKSLI/ (40000. 0*AlFW) 

0235 

xnFwlDT/100  . 

0236 

=2 . *DFW 1 

0255 

X . n056 

0256 

x , o 066 

0257 

x rFrR/20000.0 

0258 

x rCP/1 00.0 

0265 

=. 7652 

0266 

x , 8 1 86 

0267 

= AK5L?/ ( AA2*40000.0  ) 

0268 

x3.0/AA2 

0275 

x . 8 056 

0276 

x.8066 

0285 

=.765? 

0?86 

x,nl86 

0287 

=3.0/AAl 

0288 

x aKSL1/(AA1*40000.0) 

f AMPtS 

A 25  0 

xyrRDT/200. 

A251 

=-YCR/3. 

A260 

x-nF  W2DT/100. 

A 26 1 

=2 . *0FW2 

A280 

x-nFWIDT/l 00. 

A 28 1 

=2.*0FWl 

A200 

*DFL 1/10. 

A201 

S-F2F1/1000. 

A210 

=ZFT3/10. 

A?1  1 

=-f2R3/1000. 

A 2 1 5 

=ZFT4/10. 

A216 

=-F2R4 / 1 0 00 . 

A220 

=DFL?/10. 

A221 

»-F  2F2/1000. 

A227 

=-.2*0 FW2 

A230 

x-FSAl/lOOO. 

A231 

X-FSA2/1000. 

A 23? 

=-fSa3/ 1000. 

A233 

=-FSA4/1000. 

A237 

=-.2*DFWl 

A240 

*DFL1DT/100. 

A241 

=ofl?dt/ioo. 

A242 

=-7ET3DT/100. 

A243 

=ZFT3DT/100. 

A 244 

X-7ET40T/100. 

A245 

=ZfT4DT/100. 

A25? 

=- ( AmCR*YCRDD/20000. ) 

A253 

=-rFCR/20000. 

A254 

=CFCR/20000. 

A262 

=-?.* (0FW2- ( YCR/AA2) ) 

A263 

=?.*AMSS?/AKSL2 

A264 

=-a263 

00008680 


00008790 

00008770 


00008690 

00008670 


00008660 

00008710 


00008830 

00008650 
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*231 


F Mr) 
STOP 


a?7o 

= ~f  ( D A C 1 0 - (ANG^YCR)  ZAP)  / I 

A ?7  1 

~(FSP/2.)/10. 

A?7? 

= - f A?70* A?71 ) 

A ?73 

= - A 2^0 

A2R? 

=”?.* (DFW1- ( YCR/AA1 ) ) 

A ?R  3 

=?.^AMSSl/AKSL] 

A 2 R 4 

= - a 2R3 

A 29? 

= ?.* (FP1/2. ) 

A293 

= ?," (EP?/?. ) 

DFR IVATIVFR 

n2c;o 

=vrRno/?oooo. 

o?si 

=-YCRDT/30. 

o?fto 

= -OFw?L)D/1000. 

D2M 

=OFW?DT/?. 

02  RO 

=-OFwiDD/lOOO, 

D2R  1 

-orwioT/s, 

T ??f) 

= A 2 3 0 

T22? 

= A P 3 ? 

T223 

= A ? 3 3 

T??4 

-A?0  l 

T22S 

= A?2] 

T22* 

= A ?ll 

T??7 

= A?lft 

t??r 

= A?3l 

T271 

= A 2 3 7 

T27? 

= A2?7 

OUmmy 

= r>FBUG(l.,0.) 

CALL  PUNCH 

) 
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2.  PRESENTED  HERE  IS  THE  COMPUTER  LISTING 
OF  THE  IBM  360/91  DIGITAL  PROGRAM 


p7 


C **********  LISTING  OF  IBM  360/91  niGITAL  PROGRAM 


c 

00002500 

c 

VFHTCLE  HANDLING 

MODEL  C 

c 

vfhiclf  HANDLING 

MODEL  C 

00002510 

c 

CDMMQfvj/APi  / OPEN 

» RTSW  »LDTSW  ♦ R0SW 

00002520 

COMMON/OF V ICt /K FYRO • I T T Y * I CDRD . LP TR 

COMMON  /ErR«LK/PILECR»TCNECB*TIMECBtADAECR» TOAECB 


C 


COMMON  /EcRRLK/aDPFCRf AD  1 FCB , CLSFCB » CLRECn ♦ I CFC8  »0PFC8 
COMMON  /FCRRLK/OSECB  ♦ OOnECB 

COMMON /SP|  TaX/SPSR3»CPSR3.SPSR4*CPSR4*SCR3*SCR4*TBCR3*TBCR4*TBSR3.00002530 
1 TBSR4*  TRSR3* TRSR4*  T RCR 3 . TRCR4 , PSR3 * PSR4 . I AX  00002540 

COMMON/NF wTRS/TQBF (50)  « PRF ( 50 ) * TQBR ( 50 ) « PRR ( 50 ) » AM A ( 50 ) t AFR I ( 50 > * 0 0002550 
1 AMR(50) ♦ G AMM ( 50 ) » AF a (50) » G AMF (50) * AFB (50) *SLPP (50) *NTF»NTR*  00002560 

1 NMA»NMotNFAtNFB  00002570 

COmmON/DFlS/DELSWC  00002580 

COMMON/EXTRA/  UOUT*ROUT « PSIOUTtEXTAB ( 100) t 00002590 

1 rUYTBHOO)  ♦RTAR(IOO)  00002600 

COMmON/ALpHa/aLPH (20)  00002610 

COMMON/DrWniN  ♦!■>(■)  TO*  OPT  ♦TlME5.Dno*Dn»noiJT  0 00  02620 

COMMON/XX/inAC  (48)  * I AI)C  (32)  000  02630 

COMMON/ 1 NOUT/INA (32) * I OUT  A (4ft) ♦ IN (32) ♦ I OUT (48) ♦ I SW 1 » I SW7 * SF I N ( 32 > *0  00  02640 
1 SFOUT (48) » IPRT* ITMP (4ft)  00002650 

COMMON/EFrS/ANUM, AnEN*  ANUMOT* AOFNPT, ANUMO* AnFNO* ANUMOO* AOENOO*  0 0002660 

1 ANOUT ♦ A POUT  00002670 

COMMON/NUTS/TOO  00002680 

COmmon/AMaLOG/DFLI DT * OFL 2DT » DEL3PT ♦ DEL  1 . DEL2 . DEL  3 . PHI RD ♦ PH I R , 00  0 02690 

1 DFLFaM  * PELF W2 . U 1 P * U2P ♦ U3P ♦ U4P , S 1 P ♦ S2P , S3P • SAP ♦ TT A * PFSLP  00002700 

COMmon/VA(3S/P,Q*R*U*V»W»X*  Y*Z»THF»PHI  *PSI  *PO*QO*PO*UO*VO»WO*XO*  00002710 

1 YO*ZO.TMEO*PHIO*PSIO  00002720 

C0mmON/NFi.'ER/TIME25«TIMF10.RMAX*FTAMAX*PST5*PHIMAX*DSWMAX  000  02730 

COMMON/ THTNGS/TMA XI  * TM A X2 * TMA X 3 ♦ TQRM A X » TQFM A X * PS I MAX  00012300 

COMMON/TH TNGS/TM AX  1 *TMAX2*TMAX3*T0RMAX«TQFMAX*PSIMAX.0NER 

COMMON/TAPLFS/PHTFNT (7) * THFFNT ( 7 ) *PSIFNT (7) *PHIRR (7) .THEPR (7) « 00002750 

1 PS I RR ( 7 ) 00002760 

C0MM0N/FRTDAY/8TVMAX*BTVTR (100)  00002770 

COMMON/COmBlK/AIXP«SM. A lYP* AIXZP*GAM1 *GAM2*GAM3*  AIXBR* AIYBR*  0 0 002780 

1 A I ZBR  » A ] ♦ A2* ATXZPR* A12*E1 *E2*F3*DELTA*GV1 *GV2»GP1 »GP2*GR1  , 00002790 

1 GR2.CTP.CI VP*RZF*«ZR.A2T*CA20*CA23*TImE.DT.  ANGNL*ANGNLO  00002800 

1 *TR02,TF0?*TS02*G*THR0*TWN7  00002810 

C0MM0N/SP7BLK/N1 »N2* IPOT (244)  * I POT AD (244)  ,P ARAM (300)  00002820 

COMMON/MI CKF Y/I PIJNTB  ( 100)  *VTR(100)  »SNLTB(100)  »SNPTB(100)  * DSWTB  ( 1 0 00 0 002830 


1 ) .BTTR ( 1 On ) ,DTR(100)  • EFFTB (100) *OYTB(100) *PSITB 

1 YSPEC*°STM*XPF 
1 * TMPTB ( 1 0 0 ) 

C0MM0n/N0NAME/XEND»0«EXIT2 


(100) *NRUN, 


00002840 

00002850 

00002860 


DIMENSION  ADC1 (24) * ADC2 (4) 

equivalence 

(ADC1 (24) 

* IN (24)  ) 

* ( ADC2 ( 1 ) * 

IN (25) ) 

fqijt  valence 

00002880 

1 

( par am ( i 

) * AMS) 

* (PARAM ( ?) 

* AMUF) 

t 

( P AR  AM ( 3 ) * AMUR ) 

00002890 

1 

( P ARAM ( 4 

) »ZF) 

* ( PARAM ( 5) 

. ZR ) 

• 

( P AR AM ( ft). A) 

00002900 

1 

(PARAM(  7 

) ♦ B ) 

* (PARAM ( 8) 

* TF  ) 

• 

( P AR AM ( 9 ) » TR ) 

00002910 

1 

(param ( in 

) *TS) 

» (PARAM(IJ) 

. AIX) 

t 

( P AR AM ( 1 2 ) » A I Y ) 

00002920 

1 

(PARAM  ( 1 3 

) . A I Z ) 

» (PARAMU4) 

* A I XZ ) 

• 

( PARAM (15) .AIR) 

00002930 

1 

(PARAM  ( 1ft 

) *CF) 

* ( PARAM (17) 

* RF ) 

t 

( PARAM (18)  » CFP ) 

00002940 

1 

(PARAM  ( IQ 

) * AKF ) 

* (PARAM ( 20 ) 

♦ ALAMF) 

t 

( PARAM (21) ♦ OFC ) 

00002950 

1 

(Param (P? 

) » OF  T ) 

, ( param (23) 

♦ CR) 

• 

( P AR AM ( 24 ) ♦ RR ) 

00002960 

1 

(PARAM (2R 

) ♦ CRP ) 

* (PaRAM<?6> 

. AKR) 

t 

( PAR AM ( 27 ) » AL AMR ) 

00002970 

1 

(PARAM (2ft 

) * ORC ) 

, (PARAM ( 29 ) 

» ORT ) 

( PARAM ( 30 ) . AKRS ) 

00002980 
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1 

(PARAM  f 31  ) 

♦ RW) 

, ( P A R A M ( 3 2 ) 

1 

(PARAM ( 94 ) 

♦ CAO  ) 

, (PARAM ( 35 ) 

1 

(PARAM ( 37 ) 

♦ C A 3 ) 

♦ ( P A R A M ( 3 8 ) 

1 

(PARAM (44) 

♦AKDL) 

, (PaRAM  (41 ) 

1 

(PARAM (49) 

♦ WG  ) 

♦ ( PARAM ( 40 ) 

FQUT  VALENrF 

1 

(PARAM (46) 

♦ AML  1 ) 

, ( PARAM ( 47 ) 

l 

(PARAM (49) 

♦ATWF) 

♦ ( P A W AM ( 50 ) 

1 

(PARAM (5?) 

♦ ARRR) 

♦ (PARAM ( 53 ) 

1 

(PARAM ( 5S ) 

♦ P T 8 R ) 

♦ ( P A R A M ( 56 ) 

1 

(PARAM (58) 

♦ YHS1 ) 

, (PARAM ( 59 ) 

1 

(PARAM (61 ) 

♦TOORP) 

♦ (PARAM ( 6? ) 

1 

(PARAM ,64) 

♦ Q I N ) 

, (PARAM ( 65 ) 

1 

(PaRAM  (67) 

♦ V I N ) 

, (PARAM ( 68 ) 

1 

(PARAM ( 7n ) 

♦ YTN) 

♦ ( PAR AM ( 7 1 ) 

1 

(PARAM (79) 

♦ PHI  IN) 

, ( PARAM ( 74 ) 

l 

(PARAM ( 76 ) 

♦ TENn) 

♦ (PARAM ( 77 ) 

1 

(PARAM (79) 

♦ A K T 3 ) 

, (PARAM  ( 80 ) 

1 

(PARAM (82) 

♦RPS?) 

, (PARAM ( 83 ) 

1 

(PARAM (85 ) 

♦ 81  ) 

, ( P A R A M ( 8 6 ) 

F OM  T VALENrE 


B4  ) 

♦ ( P A R A M ( 3 3 ) 

♦ OT) 

f 

00002990 

CA1) 

♦ (PARAMJ36) 

♦ CA2 ) 

♦ 

00003000 

CA4) 

♦ ( PARAM ( 39 ) 

♦ AISW) 

9 

00003010 

AKSC ) 

♦ ( PARAM ( 42 ) 

♦ ANG) 

9 

00003020 

ANL?) 

♦ ( PARAM ( 45 ) 

♦AKSL) 

00003030 

00003040 

00003050 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00003140 

00003150 

00003160 

00003170 

00003180 

00003190 

00003200 

00003210 

00003220 

00003230 

00003240 

00003250 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003350 

00003360 

00003370 

00003380 

00003390 

00003400 

00003410 

00003420 

00003430 

00003440 

00003450 

00003460 

00003470 

00003480 

00003490 

00003500 

00003510 

00003520 

00003530 


A I FW  ) 

♦ (PARAM ( 48 ) 

♦ HDL ) 

• 

A I W R ) 

♦ (PARAM (51 ) 

♦ AID) 

f 

FPS1  ) 

♦ ( PARAM (54 ) 

♦EPS?) 

9 

YS  A 1 ) 

♦ ( PARAM (57 ) 

♦YSA2) 

9 

YHS2) 

♦ (PARAM (60 ) 

♦ AKD ) 

9 

AK  ) 

♦ (PARAM ( 63 ) 

♦ PIN) 

9 

RIN) 

♦ (PARAM ( 66 ) 

♦ UIZ) 

9 

WIN) 

♦ (PARAM ( 69 ) 

♦ XIN) 

9 

ZIN) 

♦ (PARAM ( 72 ) 

♦THEIN) 

9 

PSI IN) 

♦ ( PARAM ( 75 ) 

♦DTIN) 

9 

AKT  1 ) 

♦ ( PARAM ( 78 ) 

♦ AKT2) 

9 

AKT4) 

♦ ( PARAM (81) 

♦ RPS 1 ) 

9 

RPS3) 

R?) 

♦ ( PARAM ( 84 ) 

♦ (PARAM ( 87 ) 

♦ RPS4 ) 

♦ B3 ) 

9 

] <PARAM(  H9)  , DEL  ION)  ♦ (PARAM<  90 ) * DEL2DN ) ♦ 

1 (PARAM(  91 ) ♦DFL3DN) * (PARAM ( 92DDEL1TND  ( PAR AM ( 93DDEL2IND 
1 (PARAM ( 94 ) ♦ DEL3 I N ) * (PARAM ( 95DPHIDND  ( PAR AM ( 96 )♦ PH I RN ) ♦ 

1 (PaRAM ( 97) ♦ OF W] IN) . ( PARAM ( 98 ) ♦ DEW2 I N ) ♦ ( PAR AM ( 99)*UlPlN)t 

1 (PARAMf  IDO)  *II?PIN)  ♦ (PARAM  ( 101  ) ♦U3PIN)  ♦ { PARAM  ( 1 02  ) ? U4PIN ) * 

1 (PaRAM( 103) tSIPIN) ♦ (PARAM ( 1 04) ,S2PIN) . ( P ARAM ( 1 05 ) « S3P I N ) ♦ 

1 (PARAM ( 106) ♦SAPIN) ♦ (PARAM ( 107) »PPRT) 

1 ♦ (PARam(IiO) « T Q M A X ) ♦ (PARAM(lll) ♦ A K T 0 ) * (PARAM(112) ♦ V C I N ) 

]»  (PARAM  ( n 3)  ,SWMT)  , (PARAM  < 1 14)  ♦DSWCM)  * ( PAR  AM  ( 1 1 5 ) * TST  ) • 

1 (PARAM ( 1 16)  ♦DSLP)  ♦ (PARAM ( 11 7) »CGAM) * (PARAM ( 1 18) ♦CS) 

1 * ( PARAM (119)  * T QRRR ) ♦( PaRAM ( 1 20 )♦ TQFBR ) 

1 ♦ (PARAM (121)  ♦PFL)  ♦ (PARAM (12?)  ♦TTQ)  ♦ (PARAM (123)  ,DSW) 

1 , ( PARAm ( 1 £4 ) ^TSW) 

EQUIVALENCE 

1 (PARAM (130) ♦ AMCR) ♦ (PARAM (131) ♦ FSP) ♦ ( P AR AM ( 1 32 ) ♦ AKSL 1 > ♦ 

1 (PARAM (139)  ♦AKSL?) ♦ (PARAM (134) ♦ A A 1 ) ♦ (PARAM (135)  ♦ A A? ) ♦ 

1 (PARAM (136) ♦ CCR ) ♦ (PARAM (137) tCFCR) ♦ ( P AR AM ( 1 38 ) ♦ AP ) . 

1 (PARAM ( 1 39) tEPl )♦ (PARAM ( 140) tFP?) ♦ (PARAM ( 141 ) »FRR1 ) * 

] (PARAM ( 1 4?) ♦ERR?) ♦ 

1 (PARAM ( 1 43)  ♦ AML  1 )♦  (PARAM (144) tAML2) ♦ (PARAM ( 145) »RRIM) * 

1 (PARAM(l46) ♦ RWR ) ♦ (PARaM(147) ♦ AK  V ) ♦ 


1 

(PARAm ( 148) ,AK1 

) 

♦ 

( PAR AM ( 1 49 ) ♦ AK2  ) 

9 

(PARAM(150) ♦AM 

) 

l 

(PARAm ( 1 51 ) ♦PM 

) 

♦ 

(PARAM ( 152) ♦PV  ) 

9 

(PARAM (153) ♦RT 

) 

1 

(PARAm (154) ♦TDl 

) 

9 

(PARAM (155) ^102  ) 

9 

(PARAM (156) ♦ TD3 

) 

1 

(PARAm (157) ^104 

) 

9 

(PARAM ( 158) ♦Yl  ) 

9 

(PARAM (159)  ♦ YMA  X ) 

1 

(PARAm (160) ♦ZET1 ) 

9 

(PARAM ( 161 ) ♦ZET2) 

9 

(PARAM ( 162) ♦EXl 

) 

1 

(PARAm ( 163) ♦TBF 

) 

9 

(PARAM ( 164) ♦ TBR  ) 

9 

(PARAM ( 1 65 ) ♦ T 1 

) 

1 

(PARAm (166) tWNl 

) 

9 

(PARAM( 167) ♦WN?  ) 

9 

(PAPAM( 168) fRl 

> 

1 (PARAM ( 169) ♦PAO  ) 

1 ♦ (PARAM (]96) ♦ EPSK 1 ) ♦ (PARAM (197) tEPSK2) 

1 ♦ (PARAM (274) DLE) ♦ (PARAM (275) ♦ZRO) ♦ (PARAM (276) tALF) 

FQUT VALENrE 

1 (PARAM (281)  * TSF ) * (PARAM (282)  ♦ T SR ) ♦ ( P AR A M ( 283 ) ♦ T AMP ) ♦ 

1 (PaRAM (?H4)  ♦ HFC ) ♦ (PaRAM (285)  ♦ HRC ) ♦ (PARAM (286)  ♦CPRC) 

Ctum  PARAM  ( 190  ) - ( 1 95)  ADDED  8/11/72  ### 
c v a nit  un  ut>  n unit  mtuuntuMtinnuununun* 

FQUT VALENcF 

1 (PARAM (?R0 ) »POT) * (PARAM (291 ) *RAO) * (PARAM (292) *RA1 ) t 
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1 (PAWAM(?q3)»RA?)» (PaRAM<294) , RA3)  » (PARAM(?95) , RA4) 

RFal*4  tout  ,in  « i imp 

INTFGER*4  OSECP  » PONECB 

TNTFGERO?  PTSW  ,RRSW  tLDTSW  « OPEN  ,OPDN 

C C A | |.  HYTST  ( 3,0  ) 

C C A l_L  APDR  ( I ADC  » I NA  ) 

DO  10  1=1,4* 

C CALL  ADDW ( IDAC ( T ) * IOUTA ( I ) ) 

I OUT ( I ) =0 

10  CONTINUE 
Nl=?9S 

C N2=15S 

N2=l 19 

RTSW  = 0 

RHSW  = 0 

OPEN  = 0 

CONSL  = 1 
KEYRD  = 5 
ITTY  = 6 
IPTR  = 3 
T PTP  = 4 
I CORD  = 1 
L PTP  =? 

ICnPN  =7 

CALL  TYPER UEYBD, ITTY* 1 * 0*0 ) 

WRITE ( ITTY* 1 1 ) 

WRITE ( ITTY* 10070) 

WRITE ( ITTY* 1 0120) 

REAP (KEYRn, 1 1000) LL 
CALL  SACN ( 1 ♦ ISACNE) 

CALL  SAMO (\ , ISAMOE ) 

CALI  SLMP  | 3 » I SL  ROE  ) 

CALL  SLMOll, ISLMOE) 

11000  FORMAT (II) 

10120  EORMAMIH  » 1 8H T YPE  CR  WHFN  READY) 

10070  FORMAT ( 1H0 *27HENGAGE  PATCH  PANEL  FOR  TEST) 

11  FORMAT (TlO* • VEHICLE  HANDLING  SIMULATION*) 

8888  CONTINUE 

XPF  = X IN 

YSPEC=YIN 

NRUN=1 

3333  FORMAT ( 20 aa ) 

DO  6140  1=1,48 
I Tmp ( I ) =0 
6140  CONTINUE 

READ ( ICDRn* 3333) ( ALPH ( I ) ♦ I = 1 , 20 ) 

READ ( ICDRn  * 900)  (PHIENT(I)*I  = 1*7) 

RE  AO ( I CDRn  * 900)  ( THEENT ( I ) * 1 = 1 * 7 ) 

READ ( ICDRP»900 ) (PSIFNT(I)*I=1*7) 

REAP ( ICDRP*90  0 ) (PHI  MR ( I ) * 1 = 1 *7) 

READ ( ICDRP*900 ) ( THE RR ( I ) *1  = 1*7) 

READ(ICDRP*Q00) (PSIRR(I) *1=1.7) 

MTF  = 1 

200  READ ( ICDPP, 900)  PBE(NTF) ♦ TQBF (NTF) 

TE (PRF (NTF) ,GE. 99999. 0 ) GO  TO  210 
NTE  = NTFM 
GO  TO  200 
210  NTF=NTF-1 
N TR=  1 

220  REAP ( TCDRn*900 ) PHR(MTR) »TQBR(NTP) 


00003620 

00003630 

00003640 

00003650 

00003660 

00003670 


00003680 

00003690 

00003700 

00003710 

00003720 

00003730 

00003740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00003840 

00003850 

00003860 

00003870 

00003880 

00003890 

00003900 
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r> 


IF  ( PRW  ( NTP  ) , GE  • '59999 . 0 ) GO  TO  230 
NTR=NTR*  ] 

GO  To  220 
230  i\|TP  = NTW-1 
NMa  = 1 

?Aft  RF  sn ( ICQRn »P0O ) AFRI  (MMA ) « AMA (NMA ) 

TF  ( AFW  I (NJMA  ) .GF  .99999.  0 ) GO  TO  250 
N M A = N M A + 1 
GO  TO  240 
2F  0 NM  A = i\JM  A-  1 
MMR=  1 

26  0 RF  AH  ( I CORR  t ROO  ) RAMM  ( NMR  ) .AMR(NMh) 

IF (GAMM(MmR) , GF • 99999 • 0 ) GO  TO  270 
MMHrNHR* 1 
GO  TO  260 
270  NMP=NMR-1 
N F A = 1 

PRO  RE  AO ( T CORn  , QO  0 ) GAMF (NFA)  . AF A ( NF  A ) 

IF (GAMF (NFA ) .GF.99Q9Q. 0 ) GO  TO  290 
NF A=NFA+ 1 
GO  TO  280 
290  NFA=NFA-1 
MFR=1 

TOO  RF  AO  ( I CDRr>  « R 0 0 ) SLPP(NFR)  , AFB(NFB) 

TF  (SLPP(NFR)  ,GE. 99Q99. 0 ) GO  TO  310 
MFR=NFB+ 1 
OO  TO  300 
310  NFR=NFR-1 
TNT=1 

qOO  FORMAT (8E1 0a0) 

0 ROO  GALL  INITa ( TFRH» 0) 

0 IF  (TERR.  NJr, o)  GO  TO  500 

C CAI.I  HOOKUP  (0*0) 

2000  C A | I.  SRPG7 

TF (PARAM(PRO) #EQ.0,0)GO  TO  3000 
GO  TO  R8P0 
3000  CALI  SRPGa. 

ISTP=PARAm ( 1 09) ♦O.G 
TF(lSTP.Nr.O)GO  TO  2000 
CALI.  wAITrU  (200) 

CALL  PTMON 

C CALI.  WAIT  (20000) 

C CALL  INMIJX  ( IFHW.  I ) 

C 4 0 0 0 CALL  OP(TFRp) 

C CALL  RUN(TERP) 

99Q  F ORM  A I ( • 0 T JUST  CALLED  RUN-OP*) 

C5O00  WATT 
246R  CONTINUE 

L I ♦ 7 XtrrFOO* 

w I)  ♦ 7 X * 1 1 0 2 * 

no  3210  1=1. 4fl 

IF  ( T .FQ. lo.oR. I .FQ.20) ITmP ( I ) =I0UT ( I ) 
C CALL  STINn(IERR*IDAC(I) flTMP(I)) 

3210  CONTINUE 

CALL  LGDAFP (00.39, ITMP. TLBDAE) 

CALL  TLDA 

TEMP=  T I MF i 0-TIMF25 

XXXaDOUT/1 2.0*3.67* (TIMES-TIMF10) 

F FF  = 0 . 0 

TF ( ADOUT.NE.O . 0 ) FFF=ANOUT/ADOUT 


00003910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 

00004060 

00004070 

00004080 

00004090 

00004100 

00004110 

00004120 

00004130 

00004140 

00004150 

00004160 

00004170 

00004180 

00004190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

00004280 

00004290 


00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 


00004470 

00004480 

00004490 

00004500 
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PRTMT  234S, TFMP,RMAXfETAMAX»PSIS*PHIMAXtXXX»TOO»EFF  00004510 

WRITE (ITT Y,?345) TFMP.RMAX » E T AM 4 X , PS  1 5 , PH  I M A X , XXX ♦ TOO » EFF  0 0004510 

?34R  FORMAT ( * 0 TTMF  I N T F R V A L = • » F 1 5 . 5 ♦ * ♦ RM A X= • , F 1 5 . 5 » * ♦ E T AM A X = * ♦ F 1 5 . 5/ 

1 ' OPS  T a T T = b =* ,F15.5, * ,PHIMAX=t .F15.5, * , D=»,F15.5»»,  X=»,F15. 

?5 « »,  FFFr»,F15.5) 


C2345 

C 

C. 


C«765 

8765 

5984 

C 


FORMAT ( *0  TIME  I N TE R V A L = * F 1 5 . 5 ♦ * , RM A X= » F l 5 . 5 , • , ETAMAX= * F 15.5/ 

1 *0PSI  aT  T = 5 =«F15.5,»,  PHIMAX=«F15.5» t , D=»F15.5,*»  X=»F15.5» 
1 ',  EFF=»F15.5) 

IF (PARAM ( 1 89) .EQ.0.0 ) GO  TO  2469 

I RUN  TR  ( NRuN ) =P AR AM  ( 044)  *0.5 

VTR (NRUN) = D S WM A X 

PTVTB (NRUm) =HTVMAX*57.3 

SNRTP (NRUm) =T OF MAX/12.0 

SNLTR (NRUM) =TQRMAX/12.0 

TMPTR (NRUm) =EFF 

DSWTR (NRUm) sTEMP 

RTTR (NRUN) sFTAMAX 

OTR (NRUN) =Rm A X 

F.FFTB  (NRUm)  =TMAX1 

P 5 T TR (NRUm) =TmAX2 

RTap (NRUN) =TMAX3 

OLYTR (NRUM) =PSI0UT»57.3 

FXTAR (NRUm) =PHlMAX 

IF (PARAM(lfifl) .NE.0.0) GO  TO  8765 

nrijn=nrun+  1 

GO  TO  ?46q 

PRINT  5984 , ( ALPH  ( I ) , 1 = 1 ,?0 ) 

) ( ALPH ( I ), 1=1 ,?0  ) 


8764 

QflR 


987 


C246Q 

r 

246Q 

C 

400 

10140 


00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 

00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00004720 

00004730 

00004730 

00004740 

00004750 

00004750 

00004760 

00004770 

00004780 

00004770 

00004780 

00004790 

00004800 


WRITE ( LPTR.5984 
FORMAT ( • 1 » » ? 0 A 4 ) 

PRINT  988 
WRITE ( ITTY»98R) 

00  8764  1=1, NRUM 

PRINT  087, IPUNTR ( I ) , V TR ( I ) *SNRTR(T>  ,SNLTR(I>  ♦TMPTB(I)  t DSWTR (I) , 

1 PTTH ( I ) * 

WRTTF  ( I TTY  ,087)  IRlJNTR(I)  * V TR  < I ) ,SNRTB(I)  » SNL  TR  ( I ) ,TMPTR(I)  , 

1 DSWTR ( T ) « » TTB ( I ) , 

1 OTR ( T)  »FFFTR  ( I ) ♦ PSITB ( I ) ,RTAR ( I ) ,DLYT8  ( I ) tEXTAB ( I ) tBTVTB  ( I ) 

CONTINUE 

FORMAT ( • 0 RUN • *6X , • DSW * ,5X, • TQPF • ,5X»  * TQBR« » 3X  » t EBR AKE • »3X, » TBRAKE0  0 0 0481 0 
1i,4X,*AYmaX»,5X,iRMAX«,5X*»RBAR*,5X, »RHAT»  »5X,»DSW*»,3X,»DELPSI*»  00004820 
13X, * DELPHI »,3X*»PTVMAX*)  00004830 

FORMAT ( I5.3F9.0,F9.3,F9.2,F9.3,F9. 1 , 2F9 . 3 , F9 . 2 , F9 . 0 . 2F9 . 1 ) 00004840 

NR(JN=1  00004850 

X PF  = X T N 00004860 

YSPF  C = Y I N 00004870 

IF ( TSW7.EO. 1 )GO  TO  3000  00004880 

GO  TO  2 OOn  00004890 

CONTINUE 

CONTINUATION  DIRECTIVE 
WRITEdTTY,  10140) 

FORMAT ( 1H  ,t  TYPE  CONTINUATION  DIRECTIVE-  1-TERM INATE*  2-REPEAT,  3 


1-RFSTART* ) 

510  RE AD  ( KEYBD*11000  ) ISW7 
GO  TO  ( 440, 3000, ?000  )»ISW7 
WRTTE ( ITTy, 12020) 

12020  FORMAT ( 1 H * 32H** ILLEGAL  CONTINUATION  DIRECTIVE) 

GO  TO  510 

1 2030  F0RMAT(1H  , 1 3HCO  COMPONENT  » A2 ♦ 1 X * I 3, 1 OH  WRONG  BY  »I6*11H  MlLLIVOL 
ITS) 

99999  F0RmaT(1H  ,5?HC0NS0LF  FAILED  TO  SFLFCT-  RFTURN  TO  KEYBOARD  MONITOR 
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1 ) 

440  COMTIMUE 

T F ( RTSW.fQ.O  ) GO  TO  441 
OSFCR  =0 

CALL  HpOST ( OOMECPf • J007»  ) 

CALL  w A I TpT ( OSECR ) 

441  CONTINUE 
C 

WRITE ( ITTv* ] 0150) 

10150  FORMAT ( 1 x , 1 OHTERMINATED) 

c 

CALL  RACN ( 1 , IRACNE ) 

C A I L CHKin 
CALL  WRTOFF 
CA|L  ROOFf 
STOP 

ENO 
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FUhROUTINf  POTSFT  00006579 

SUBROUTINE  POTSFT  00006580 

n I MFNS  TON  S8  (4*4)  ,RP (4,2)  ,ALBP (4,2)  ,SST (4*4)  00006590 

COMMON/DFvlOB/KFYPO* i tty* ICDRD*LPTR 

COmmqn/HHwH/H 1 *H?*H3*H4  00006600 

COMMON/SP!  TaX/SPSR3*CPSR3*SPSR4*CPSR4,SCR3*SCR4*TBCR3.TBCR4,TBSR3*00006610 
1 TRSR4*TPSR3.TRSR4,TRrR3,TRCR4*PSR3»PSR4*IAX  00006620 

OOmmON/NUTS/TOO  00006630 

COMMON/CL.F  AN/ONFOA*OMEOD*PBSW*PB  00006640 

rOMMON/VAr.'S/P*Q.R*U*V,W*X»Y*Z*THF*PHl,PSI  . RO  ♦ QO . RO  * UO  ♦ VO  * WO  ♦ XO  ♦ 00006650 

1 YO*ZO. ThFO*PMIO»PSIO  00006660 

COMMOM/ZIl  Ch/TOMAXP* 4KTQP  00006670 

rOMMOKj/AMALOG/DFLlDT  . DFL2DT  « DEL  3D  T * PEL  1 » DFL?  » DEL  3 » PH  I RO  * PH  I R * 0 00  0668  0 

1 DEI.FW  1 .DELFW2*U1P»U2P*U3P*U4P*S1P.S2P«S3P*S4P»TTA*PFSLP  00006690 

POMmon/IMoUT/INA (3?)  *inUTA(4R)  ♦ T M ( 32 ) ♦ I OUT ( 48 ) ♦ I SW 1 * T SW7 * SF I N ( 32 ) *00006700 
1 SFOUT (48) » IPRT. ITMP (48)  00006710 

rOMMOM/EFrS/ANUM* AOEN* ANUMDT* AOFNnT*  ANUMO, ADENO*  ANUMDO* AOENDO*  00006720 

1 ANOUT  * ABOUT  00006730 

COhmON/COmRlK/ATXP*SM* AIYP.AIXZP*GAM1 * GAM? * GAM3 , A I XBR * A I YBR ♦ 00006740 

1 AIZBR.  A]  ♦ A2,AIXZBR* A1?*E1 *E?»E3.nELTA»GVl *GV2»GP1 »GP2*GR1*  0 0006750 

1 GR?*CTP.CI VP.RZF*RZR*A2T*CA?0.CA23.TIME*DT.  ANGNL*ANGNLO  00006760 

1 *TR0?,TF02*TS0?»G»THRD*TWN7  00006770 

rOMMOM/FPrnAY/BTVMAX»BTVTB (100)  00006780 

C()MMO.M/UVW/VC*UIN  00006790 

COMMON/ SPTRl K/Nl  *N2»  TPOT (244)  * I POT AO (244)  .PAR AM (300)  00006800 

rOMMON/MIrKFY/lRUNTR (100)*VTR(100), S N L T B ( 1 0 0 ) * SNRT0 (100), DSWTB (100000068 10 


),HTTB(100)»OTB(100),FFFTR(100),OYTR(100)»PSITB 

YSPEC*PSIM,XPF 


1 
1 

1 *TMPTR(lO0) 
EOIJI  VALEMrE 


(100) * NRUN  * 


00006820 

00006830 

00006840 

00006850 


1 

(PARAM(  n 

» A M S ) 

, (PARAM ( 2) 

♦ AMUF) 

* ( PARAM ( 3) 

♦AMUR) 

t 

00006860 

1 

( P A R A M ( 4) 

» ZF  ) 

, ( PARAM ( 5) 

♦ ZR) 

* ( PAR AM ( 6) 

♦ A) 

* 

00006870 

1 

(PAPAMf  7) 

» B ) 

, (PARAM  ( 8) 

♦ TF) 

* (PARAM(  9) 

♦ TP) 

t 

00006880 

1 

( PARAM (10) 

» TS ) 

* (PARAM(ll) 

, AIX) 

♦ (PARAM ( 12) 

* A I Y ) 

t 

00006890 

1 

(PARAM (1?) 

♦ AIZ) 

♦ (PARAM ( 14) 

♦ AIXZ) 

* ( PARAM (15) 

♦ AIR) 

t 

00006900 

1 

(PARAM ( ] 6 ) 

*CF) 

, (PARAMU7) 

* RF  ) 

, (PARAM(IA) 

♦ CFP) 

t 

00006910 

1 

(PARAM ( 1 Q ) 

♦ AKF) 

, ( PARAM ( 20 ) 

♦ AL AMF ) 

* ( PARAM (21) 

♦ OF  C ) 

t 

00006920 

1 

(PARAM (2?) 

♦ OFT) 

♦ (PARAM ( 23 ) 

,CR) 

* ( PARAM ( 24 ) 

♦ RR) 

* 

00006930 

1 

(PARAM (26) 

♦ CRP) 

, (PARAM ( 26 ) 

* AKR) 

♦ (PARAM  ( 27 ) 

♦ ALAMR) 

t 

00006940 

1 

(PARAM (28) 

»ORC) 

, ( PARAM ( 29 ) 

♦ ORT) 

♦ ( PAR AM ( 30 ) 

* AKRS) 

t 

00006950 

1 

(PARAM (31 ) 

♦ RW) 

, (PARAM ( 32 ) 

♦ B4 ) 

♦ (PARAM ( 33 ) 

♦ OT ) 

» 

00006960 

1 

( PARAM ( 34 ) 

♦ CAO) 

, (PARAM ( 35 ) 

♦ CA1) 

♦ (PARAM ( 36 ) 

♦ C A2 ) 

t 

00006970 

1 

( PARAM ( 37 ) 

» C A 3 ) 

, (PARAM ( 38 ) 

♦ CA4  ) 

♦ (PARAM ( 39 ) 

♦ A I SW ) 

t 

00006980 

1 

(PARAM (44 ) 

» AKDL) 

, (PARAM  (41 ) 

, AKSC) 

* (PARAM(4?) 

* ANG) 

t 

00006990 

1 

(PARAM (43) 

,WG) 

, ( PARAM ( 40 ) 

♦ ANL2) 

* (PARAM ( 45 ) 

* AKSL) 

00007000 

FQUI VALENrE 

00007010 

1 

(PARAM (46) 

♦ ANL1 ) 

, ( P A R AM ( 4 7 ) 

» AIFW) 

* ( P AR AM ( 48 ) 

♦ HDL ) 

t 

00007020 

1 

(PARAM (4Q) 

♦ AJWF) 

, ( PARAM ( 50 ) 

♦ AIWR) 

♦ (PARAM (51 ) 

♦ AID) 

♦ 

00007030 

1 

(PARAM (5?) 

♦ ARRR) 

♦ ( PARAM ( 53 ) 

♦ EPS  1 ) 

* (PARAM ( 54 ) 

♦EPS2) 

f 

00007040 

1 

(PARAM (56) 

♦PTBR) 

, (PARAM (56 ) 

♦ YSA1 ) 

♦ (PARAM ( 57 ) 

♦YSA2) 

t 

00007050 

1 

(PARAM (58 ) 

, YHS1 ) 

* (PARAM ( 59 ) 

♦ YHS?) 

* ( P AR A M ( 60 ) 

* AKD) 

t 

00007060 

1 

(PARAM (61 ) 

♦TOOBR) 

, (PARAM ( 62 ) 

♦ AK  ) 

, (PARAM ( 63 ) 

♦ PIN) 

t 

00007070 

1 

(PARAM (64 ) 

♦ UIN) 

, (PARAM ( 65 ) 

» R IN ) 

* (PARAM ( 66 ) 

♦ UIZ) 

t 

00007080 

1 

(PARAM (67) 

» VIN) 

, (PARAM (68 ) 

♦ WIN) 

, ( PARAM ( 69 ) 

♦ XIN) 

t 

00007090 

1 

(PARAM ( 70 ) 

. YIN) 

, (PARAM (71 ) 

♦ ZIN) 

* ( PARAM ( 72 ) 

♦THEIN) 

t 

00007100 

1 

(PARAM (73) 

, PHI  IN) 

* (PARAM ( 74 ) 

*PSI IN) 

* (PARAM ( 75 ) 

♦DTIN) 

t 

00007110 

1 

(PARAM (76) 

,TFND) 

, (PARAM ( 77 ) 

♦ AKT1 ) 

♦ (PARAM ( 78 ) 

* AKT2) 

f 

00007120 

1 

(PARAM (7Q) 

♦ AKT3) 

* (PARAM(RO) 

* AKT4) 

* ( P ARAM ( 8 1 ) 

♦ RPS 1 ) 

t 

00007130 

1 

(PARAM (8?) 

* RPS? ) 

, ( PAR AM ( 83 ) 

♦ RPS3 ) 

* ( P AR AM ( 84 ) 

♦RPS4) 

t 

00007140 
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n o 


] (PARAM ( 86) »H1 ) , (PARAM (R6) »H2)  ♦ { PAR AM ( 87 ) t B3 > 

FONT  VALENCE 

1 (PARAM(  HQ)  ♦DFL10M)  * (PARAM  ( 90  ) » PFL2DN  ) * 

1 (PuPAMf  Rj ) *DEL3DN) * (PARAM ( 9?)»0EL1IN>9  (PARAM ( Q3 > » DEL2 I N) ♦ 

] (PARAMf  u4 ) 9 HEL3 I N ) * (PARAM(  PS ) * PH  TON)*  ( P ARA M ( 96 ) * PH I RN ) , 

) (PARAM)  «7)  »OFWl IM)  , (PARAM ( 98 ) * OF W2 1 M ) . ( P AR AM ( Q9)»U1PIN). 

1 (PARAM  ( 1 no  ) *IJ2PIM)  * ( P AR AM  ( 1 0 1 ) , U3P I N ) 9 ( P AR  AM  ( 1 0?  ) * IMP  I N ) * 

1 (PARAM ( 1 03) tSIPIN) « (PARAM (1 04) «S2PTN) » ( PAR AM ( 1 05 ) » S3P I N ) ♦ 

1 (PARAM ( 1 06) »S4PIN) » (PARAM (107) » PPRT ) 

] . (PARAM ( n 0 ) » TQMAX ) » ( PARAM ( 1 1 1 ) * AKTO)  ♦ (PARAM ( 1 1?)  * VCIN) 

1«  (PARAM(li3)  tS'VMT)  « (PARAM(114)  »DSWCM)  » (PARAM(115)  #TST)  * 

1 (PARAM ( 1 1 4)  ,OSLP)  » (PARAM ( 1 17)  »CGAM)  , (PARAM ( 118) »CS) 

) ,(PARAM(liQ),T0RRR)»(PARAM(l20), TOFRR) 

1 < ( P AR  AM ( 1 2 1 ) *PFL)  » (PaRaM(1?2)  »TTD)  » (PARAM(123)  « DSW ) 

1 » (PARAM (124) *TSW) 

FQUI VALEMrF 

) (PARAM  M 30)  , AMCP) ♦ (PARAM ( 131  )» ESP)  . (PARAM (] 32) *AKSL1 ) * 

1 ( P A R AM ( i 3 T ) 9 AK  SL2  > ♦ (PARAM(134)  » A A 1 ) 9 (PARAM(135) »AA2)  » 

1 (PA»AM( 1 34) *CCP) ♦ (PARAM ( 137) *CFCR) ♦ (PARAM (138) »AP) * 

1 (PARAM  n 39) »EP1 ) * (PARAM ( 140)  *EP?)  » (PARAM ( 141 ) »ERR1 ) * 

) (PARAM (14?)  9 ERR? ) « 

] (PARAM ( 1 4?) , AML1 ) * (PARAM ( 144) ♦ AML?) * (PARAM ( 145) *RRIM) , 

1 (PaRAM  (144)  »PWR)  ♦ (PARAM (147)  9 A K V ) » 


1 

(PARAM ( 1 48) 9 AK 1 

) 

« 

(PARAM (149) 9 AK?  ) 

9 

(PAPAM(150) 9AM 

) 

1 

(PARA*-  ( 151  ) 9PM 

) 

9 

(PARAM (15?) 9PV  ) 

9 

(PARAM (153)  9 Rl 

) 

1 

( P ARA*»  ( 1 84  ) 9 T t)  1 

) 

9 

(PARAM < 155) , TO?  ) 

9 

(PARAM ( 156 ) 9 TD3 

) 

1 

(PARAM (157)9  TD4 

) 

9 

(PARAM ( 168) 9YI  ) 

9 

(PARAM( 159) 9YMAX) 

1 

(PARAm< 160)  9 ZET  1 ) 

9 

(PARAM ( 161 ) 9 ZET? ) 

9 

(PAPAM (162) 9FXI 

) 

1 

(PARAM (163)  9 THF 

) 

9 

(PARAM ( 164) , TRR  ) 

9 

(PARAM( 165) 9TI 

) 

1 

(PARAm (166) 9WNI 

) 

9 

(PARAM ( 167)  9 WN2  ) 

9 

(PARAM( 168) 9PI 

) 

1 

(PARAM (169) 9PAO 

) 

1 

» ( PARAM (196)  9 EPSK 1 ) 

♦ 

(PARAM (197)  9 EPSK? ) 

FQUIVALENrE 

1 (PARAM (2?3) *CR1 C)  ♦ (PARAM (??4)  » CR 1 T ) ♦ (PARAM (225) »CR2C) « 

1 (PARAM(??6) »rR2T) » (PARAM(??7) »CR3C) » (PARAM(?28) »CR3T) * 

1 ( PARAM (??9)  ♦ CR4C ) ♦ (PARAM (230)  »CR4T) ♦ ( P A R AM ( 23 1 ) » AH  1 ) * 

1 (PARAM (232)  » AH2 ) 9 (PARAM (233)  9 A NL ) 9 (PARAM (234) 9AKFI ) 9 
1 (PARAM(P3S),AKF2)9(PARAM(236)9AKR3)f(PAPAM(237)  9 AKR4 ) 

FQUI VALENCE  (SS ( 1 9 1 ) 9 PARAM (242)  ) 9 (BP ( 1 9 1 ) 9 PARAM (258)  ) t ( ALBP ( 1 9 1 ) 
1 papam  ( ?6* ) ) 

1 9 (PARAM (274) *TLF) • (PARAM (?75) «ZR0) • (PARAM (276) «ALF) 

EQUIVALENCE 

1 (PARAM, ?fll ) 9TSF) 9 (PARAM(?82) 9TSR) ♦ (PAPAM(?83) 9TANP) 9 

1 (PARAM (284)  9 HFC ) 9 (PARAM (285)  9 HRC ) 9 (PARAM (286)  9 CRRC ) 
EQUIVALENCE 

1 (PARAM,  ?qO)9POT)9(PARAM( 29 1)9RA0)9  (PARAM (292)  9RAI ) 9 
1 (PARAM  ,203)  9 R A2 ) 9 (PARAM (294) 9RA3)  9 (PARAM (295)  9 R A4 ) 

C DATA  N1/?o9/9N2/155/9T/10000.0/9TIN/0»0001/ 

DATA  T/IOOOO.O/9TIN/O.OOOI/ 

C N1  9 N?  FoUaTFD  TO  THEIR  VALUES  IN  MAIN 

T AX=PARAM (287) ♦0.6 
PSP3=PARAM (?88) » .01 74633 
PSR4=p ARAM (289) *.0174533 
SPSR3=SIM (PSR3) 

SPSR4=SIN (PSR4) 

SPSR3=  ( TAM  (?.0*HFC/TF  ) ) *?„0/AMUF 
SPSR4s  ( T A 4.  (2.0*HRC/TR)  )*?.()/ AMUR 
CPSR3=C0S (PSR3) 

CPSR4=COS (PSR4 ) 

SCR3=SPSR3*CPSR3 


00007150 
00007160 
00007170 
00007180 
00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
00007260 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
00007360 
00007370 
00007380 
00007390 
00007400 
00007410 
00007420 
00007430 
00007440 
00007450 
00007460 
00007470 
00007480 
00007490 
00007500 
00007510 
00007520 
9 00007530 
00007540 
00007550 
00007560 
00007570 
00007580 


00007590 

00007590 

7591 

00007600 

00007610 

00007620 

0 

00007640 


00007650 

00007660 

00007670 
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?n 


30 


scra=spsr4*cpsR4 

00007680 

TMP=2. 0*R/TS 

OOOOT7690 

TRSR3=TMP«SPSR3 

00007700 

TRSP4=TmP*SpSR4 

00007710 

T«CP3aTMP#CPSR3 

00007720 

TMCP4=TMP^CRSR4 

00007730 

TMP=TR/TS 

00007740 

TRSP3=TMP*SPSR3 

00007750 

TRSR4=TMP«SpSR4 

00007760 

TRCR3=Tmp«CPSR3 

00007770 

TRCP4=TMP»CPSR4 

00007780 

00  ?0  1=] ,4 

00007790 

SSI ( T * 1 ) =aLPP ( r • 1 ) -SS ( 1 1 1 ) *BP ( I , 1 ) 

00007800 

SSI (I *2)=n.0 

00007810 

SST (I »3) =0.0 

00007820 

SSI(I.4)=aLBP(I*?)-SS( I *4) *RP ( I ♦?) 

00007830 

SM=AMS  + AMiiF  + AMUR 

00007850 

UIN=UIZ*1?. 0*52R0. 0/3600. 0 

00007860 

VC= VC IN*1?. 0*8280.0/36 00.0 

00007870 

I SW7= 1 

00007880 

TPRT  = PARAM ( ] OR) +0 .5 

00007890 

TWO3=2.0/R.0 

00007900 

TENsO. 1 

00007910 

Cl = 2000 . 0 

00007920 

C2=60.0 

00007930 

C3=l 000. 0 

00007940 

HIJN=0 . 0 1 

00007950 

TOUsO. 001 

00007960 

TTOsO.noOl 

00007970 

G=386.4 

00007980 

THRO= 1 .0/3.0 

00007990 

TWM7=1 . 0/27. 0 

00008000 

Hl=RW  - ( AMI  IF ♦B*AMS  / ( A ♦ B ) ) *G/  ( 2 • * AK  T 1 ) 

00008010 

H2  = RW-(AM|iF  + 8*AMS/(A  + R))*G/(2.*AKT2) 

00008020 

h3  = RW-(AMiiR*A«AMS/(A*R))*G/(2.*AKT3) 

00008030 

H4  = RW-(AMIiR  + A*AMS/(A*B))*G/(2.*AKT4) 
ZlN=(R*(Hl+ZF)«-A*(H3*ZR))/(A*B)*(-l.) 

00008040 

THFTNs  (HI -H.3  + ZF-ZR)  / (A  + B)  *57.29578 

00008070 

aIRR=AIWR*AID*ARRR**2*0.25 

00008080 

airrp=airr-aiwr 

00008090 

T00=0 . 0 

00008100 

RPS1 sUIN/mI 

00008110 

PPS?=UIN/h2 

00008120 

RPS3=UIN/m3 

00008130 

RPS4=UIN/p4 

00008140 

TF  02  = TF  *0.5 

00008150 

CRT=C*RT 

00008160 

TSO?=TS/2.0 

00008170 

TRO?=TR*O.S 

00008180 

temp=alamp*akr-akr 

00008190 

temf=alamf*akf-akf 

00008200 

AIXP=AMUF«ZF*ZF+AMUR*ZR*ZR 

00008210 

AIVP=AIXP 

00008220 

AlZP=AMUF* (A*A+TF 02**2) +AMUR*B*R 
IF ( T AX.EQ.  1 ) GO  TO  30 
AI?P=AIZP*AMUR*TP02**2 

00008230 

A I XZP=AMUF*A*ZF-AMUR*R*ZR 

00008240 

GAM1=AMUF*A-AMUR*R 

00008250 

GAM?=AMUF*ZF*AMUP*ZR 

00008260 

GAM3=GAM2 

00008270 
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AIXRR=AIX*ATXP 

00008280 

atyrr=aiy*.atyp 

00008290 

ai:/rr=aizp  «•  a i z 

00008300 

A 1 =GAM2/Sm 

00008310  I 

A ?=  A I YHR/oAM? 

00008320 

Al X 7 R R = A I X Z P ♦ A I X Z 

00008330 

CA?3  = CA2*r A 3 

00008340 

A 1 ? = A 1 -A? 

00008350 

F1=AIXRR*AIZRR-AIXZRR**2 

00008360 

F?  = GAM1 *A  T X 7BR"G AM3* A I ZHP 

00008370 

F3  = GAM3*A  TX7HR-GAM1* A IXHR 

00008380 

nFLTA  = Fl*FM  + pAM2*F2*r;AMl  *F3 

00008390 

GV1=GAM2*a  I7BR-GAM1*AI  XZRR 

00008400 

GV?=GaM2*a  I *ZRR-GAMl*A  T XRR 

00008410 

GP1=SM*AI7RR-GAM1**2 

00008420 

GP2=SM*AI vZpR-GaM1*GAM3 

00008430 

GR1=GP? 

00008440 

GB2=SM*AIxBP-GAM2*GAM3 

00008450 

CIP  = R*AMS*G/(AMtJF*(A*R)  ) +G 

00008460 

TQMAXP=TQ"AX*ARRR*0.5 

00008470 

AKTOP=AKTO*ARRR*0,5 

00008480 

CTV/P=A*AMR*R/( AMUR* ( A+R  ) ) ♦G 

00008490 

W7F=RW+ZF 

00008500 

PZR=Rw*ZP 

00008510 

A 2 T=  0 T * C A ? 

00008520 

CA?f1  = CA0*r  A? 

00008530 

0NFOA=l .0/A12 

00008540 

ONFOO=l ® 0 / n F L T A 

00008550 

PRSW=0.0 

00008560 

pR=n.o 

00008570 

r 

I pnr  ( 3) = 1 0000 

00008580 

c 

TPnT (5) =1 nono 

00008590 

c 

I POT (6) =1 .0/ ( 10.0*AMCR) *T*0.5 

00008600 

c 

I POT (7) =FSP/ (2.0*10.0*57.3) *T*0.5 

00008610 

r 

I POT  (8)  =FFP /(?.()*  10.0 *57,3)  *T* 0.5 

00008620 

c 

I POT (11) = oF/ ( TF«TF*10  0.0) *T+0.5 

00008630 

TPOT(()R)=pF/(TF*TF*100.Q)*T 

00008630 

c 

I POT  <1?)=RF/(TF*TF*100.0)*T  + 0.5 

00008640 

IPOT ( 14) spF/ ( TF*TF*in0.0) *T 

00008640 

c 

IPOT(13)=aKSL1/(AA1*40000.0)*T*0.5 

00008650 

c 

IPOT ( 14) =aKSL2/ ( AA2*4U000.0) *T*0.5 

00008660 

c 

IPot ( i5)=rCR/loo.o*T*o.5 

00008670 

r 

IPOT  ( 14)  = aKFC*  ANJG/  (AP*20nn.0)*T«t-0.5 

00008680 

c 

IPOT ( 17) =rFCR/20000.0*T*0.5 

00008690 

c 

IPOT  ( 19)  = ■?.()*  ANG/  (10. 0*AP  ) *T+0 .5 

00008700 

r 

IPOT(20)=4.n/AA?*T+0.5 

00008710 

c 

IPOT  <21  )=P.n*FP?/  (2.0*57.3)  *T  + 0.<^ 

00008720 

r 

IPOT(2?)=?.n*EP2/(2.0*S7.3)*T*0.5 

00008730 

c 

IPOT (23) =?.0*FP1/ (2.0*57.3) *T *0.5 

00008740 

r 

IPOT (24) =?.0*FPl/ <2. 0*57.3) *T* 0.5 

00008750 

c 

IPOT(25)=2.0/3.0*T*0.5 

00008760 

c 

IPOT (27) =aKSL1/ (20000. 0*AIFW) *T*0.5 

00008770 

r 

IPOT(2«)-aKSL2/(?0000.0*AIFW)*T*0.5 

00008780 

c 

IPOT  (?9)=aH1/(100,0*AIFW)*T+0.5 

00008790 

r 

IPOT ( 30) =aH?/ ( 1 00.0*AlFW) *T*0,5 

00008800 

c 

IPOT (33) =rRol/20.0*T*0.5 

00008810 

c 

TP0T(34)=cRol/20.0*T+0.5 

00008820 

c 

IPOT (35)=6.0/AA1*T*0,5 

00008830 

c 

TPOT  <36)=SS(2*3) /10.0*T*0.5 

00008840 

c 

IPOT (037) r (2.0* AKT1/ (5000. 0*AMUF) ) *T*0.5 

00008850 
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IPOT  (3?)  = r2.0*AK-Tl/(5000.0*AMUF)  ) *T 
IPOT  ( A 1 ) =rPo2/20.0*T*0.5 
IPOT (42)=fRp2/20.0*T*-0.5 
TPOT(43)=«;S(4«2)/10.0*T*n.5 

IPOT  (44)=pS(4*3)/10.0*T*0.5 
TPOT (55) =6S (1*2)/10.0*T+0.5 
IPOT  ( 66 ) = F S (UZ)/I0.0«T  + 0.ci 
IPOT(67)=sS(l*l)/10.0*T+0.5 
IF (SSI (1,1) .LT.O)  SSI (ltl)s-sSI (ltl) 

IPOT (Sfl)=SST  ( 1 * ] )/1000.0*T+0.5 
IPOT(SP)=sS(  1 ,3)  /}  0.0«T*0.5 
IPOT  (60)  = p S ( 1 » 3 ) / 1 0 • 0 * T *0*5 
IPOT  (61)=pP(1»1)/]00.0*T+0.5 
IPOT (61 ) =- I POT (61 ) 

IPOT (62)=QP(l*2)/100.0*T+0.5 
I POT ( 63 ) = SS ( ] *4)/10.0*T«-0.5 
IF (SSI  (1*4)  „LT«0)  SSI (1*4)=-SSI (1*4) 
IPOT(64)=c;Sl(]»4)/100  0.0»T*0.5 
TPOT(65)=SS(2»2)/10.0*T+0.5 
IPOT (6fa) =SS (2*2) /10.0*T*0.5 
IPOT(67)=SS(2«1)/10.0*T*0.5 
IF  (SSI  (2.1  ) .LT.O)  SSI <2, I ) a-SSI (2. I ) 
TPnT(68)=sSl(2*l)/1000.0*T+0.5 
TPOT(6P)=pP(?.1)/100.0*T+0.5 
IPOT (69) =-lPOT (69) 

IPOT ( 030) = (2.0* AKT2/ (50 00.0* AMUF) ) *T*0.5 
IPOT (05) = (2.0*AKT2/ (5000.0*AMUF) ) *T 
IPOT(70)=oP(2.2)/100,0*T+0,5 
IPOT ( 72) =SS (2. 3) /I 0.0*T+0.5 
TPOT(73)=SSf2»4)/10.0*T*0.5 
IF ( SSI  (2. 4). LT.O)  SSI (2*4) =-SST (2*4) 

IPOT ( 74 ) =SS I (2*4)/1000.0*T*’0.5 
IPOT (75)=SS(3»2)/10.0*T+0.5 
TpOT (76)=FS(3»2)/10.0*T*0.5 
IpnT(77)=np(3»l)/lOO.O*T*0.5 
IPOT (77) =-lPOT (77) 

IPOT (78)=pP(3»2)/100.0*T+0,5 
IPOT(79)=pS(3*1)/10.0*T«-0.5 
I F (SS 1(3.1).  LT.O)  SSI  (3*1 )=-SSI  (3.1 ) 
TPOT(ft0)=SST(3.1)/1000.0*T*0.5 
IF (IPOT (00)  .LT.O)  I POT («0)=- 1 POT (BO) 

IPOT (8l)=SS(3*3)/10.0*T+0.5 
IPOT (82) =SS (3.3) /10.0*T*0.5 
IPOT (83) =FS (3.4) /10.0*T+0.5 
IF (SSI (3.4) .LT.O)  SSI (3*4) =-SSI (3*4) 
TPOT(84)=SST(3*4)/1000.0*T-*0.5 
IPOT  (85)=RP(4»1)/100.0*T*-0.5 
IPOT (85) =-TPOT (85) 

TPOT (06) =op (4*2) /I 00.0 *T *0.5 
IPOT (086) =0.2000*T 
IPOT (H7)=SS(4»2)/10.0*T*0.S 
TPOT (88)=fS(4»1)/10.0*T*0»5 
IF (SSI (4.1). LT.O)  SSI (4*1 )=-SSI (4* 1 ) 

C IPOT (89) =SST  (4*  1 ) /1000.0*T*0.5 

r IF ( TPOT (HP)  .LT.O ) IPOT (89) =-IPOT (89) 

C IPOT  (90)  =FS  (4*3) /10.0*T*-0.5 

r IPOT (91 ) =sS (4*4) /10.0*T*0.5 

C IF (SSI  (4.4)  .LT.O)  SS I ( 4 * 4 ) =-SSl ( 4 * 4 ) 

0 TPOT (92)=SSl  (4*4)/l00O.0*T*0.5 

0 TPOT (96) =aKF1*10. 0*0.5 
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I POT ( 096) =0.2000*T 

C IPOT  ( 97  ) = (AlAMF^AKF  1 - A K F 1 ) #10, 0*0, 5 

r.  I POT  (98)  = fiFC#  ( A|_AMF#AKF1-AKF1  ) *1  . 0*0.5 

C TPOT (9H)=-IP0T (OP) 

C TP0T(99)=TP0T(97) 

C IPOT(inO)=OFT#(ALAMF#AKFl-AKF])#1.0+0.5 

r.  TPOT(  ] 04)=At<F?*l  0.0  + 0.5 

C TPOT ( J OS)  = ( ALAMF#AKF2~AKF2) #10.0+0.5 

C TPOT ( 1 06) = OFC# (AI_AMF*AKF?-AKF?)*1.0  + 0.5 

C IPOT  ( 106) --TPOT  U06) 

r TPOT ( J 07) =TPOT ( 1 05) 

C TPOT { 1 OH) = OFT# ( ALAMF*AKF?-AKF2) *1 .0*0.5 

r IPOT ( 1 12) =AKR3*10.0+0.5 

r T POT ( 1 1 3 ) = ( AL A*P#AKR3-AKR3 ) #10.0+0.5 

C I POT  (114)  = ORC#  ( A|.AMR#AKR3-AKR3)  #1 . 0 + 0 .5 

r IPOT < 1 14) =-TPOT ( 1 14) 

0 TPOT ( 1 IB) =TPOT (1 13) 

r TPOT ( 1 16) = 0 R T # (ALAMR#AKR3-AKR3) *1  .0+0.5 

C JPOT  ( 120)  :=AkR4#10.0  + 0.5 

C IPOT(121)  = (ALAMR*AKR4-AKR4)*10.0-f0.S 

r IPOT  ( 122)  = ORC#  (AI_AMR#AKR4-AKR4)#1.0  + 0.5 

r TPOT ( 122) --IPOT ( 122) 

TPOT ( 123) =IP0T (121) 

IPOT ( 1 24 ) =OPT* ( ALAMR#AKR4-aKP4 ) *1 . 0 + 0 .5 
TPOT  (02)  =^7. 3/200. #T 
IPOT (97) =TP0T (0?) 

IPOT (100) =2.#IP0T (92) 

TPOT ( 105) *2.*IPOT (97) 

TPOT ( 1 25) =HdN#RPSl#T+0 .5 
IPOT ( 101 ) =HUN#RPS1#T 
IPOT  (126)  = HIJN#RPS2#T  + 0.5 
TPOT  (104)  = HllN#RPS?#T 

IPOT ( 127) = (4,0/AIWF) #T#PARAM (239) + 0.5 
IPOT ( 103) = (4.0/AIWF) *T#PARAM (239) 

IPOT(128)  = (6().0*AKT2/n  000n.0*AIWF))*T  + 0.^ 
IPOT ( 1 02) = (60. 0*aKT?/ ( 10000. 0*AIWF) ) *T 
TPOT ( 129) = (4.0/AIWF) #T#PAPAM (230) +0.5 
I POT  ( 52  ) = U.0/AIWF)#T#PARAM(23R) 
IPOT(130):=(60.0#AKT1/<10000.0#AIWF))#T  + 0.8 
IPOT (hi  )=(60.0#AKT1/(10000.0#ATWF))#T 
IPOT ( 131 ) =1 .5#T+0.5 
IPOT ( 132) slPOT ( 131 ) 

TPOT ( 133) =TOU#2.0#CFP#T+0.5 
T POT ( 19  ) = . 1 #TOU#?.0*CFP#T 
C IPOT ( 134)=lP0T (133) 

I POT ( 24  ) = I POT ( 1 9 ) 

C IPOT (l35)r0,1333#T+0.5 

IPOT (87  )=0.1333#T 
C IPOT ( 136) = (RW/15.0) #T+0.5 

I POT ( 88  ) = (Pto/15,0) *T 
0 IPOT ( 137) =IP0T ( 135) 

I POT ( 90  ) = I POT ( 8 7 ) 

C IP0T(138)=IP0T(136) 

IP0T(9«  ) = I PO  T ( 88  ) 

0 IPOT (139)=1.5#T+0.5 

C IPOT (140)=1.5#T+0,5 

r IPOT ( 141 ) S (2.0/ ( 1 U.0#AMUF) ) *T+0.5 

TPOT ( 0 2 )s(2, 0/(10. 0*AMUF)  ) #T 
r IPOT ( ] 42) = (HUN#PF/ (TF#TF))#7+0.R 

IPOT ( 0 4 ) = (HUN#PF/ ( TF#TF ) ) *T 
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C.  IPOT  ( ) 44)  =TnU*CFP*T*0.5 

TPOT  (16  ) -TnU*CFP*T 
r ipot  (i4n  = (n,?/4MS)*T  + n.s 
TPDT<01  ) = <0. 1/4MS) *T 

r t pot ( i4H ) = ( n .2/ams) *t*o .= 

T POT (06  ) = ( 0 „ 1 /AMS ) *T 
C IPOT ( 149) =IP0T ( 141 ) 

T P O T (07  ) = I POT ( 0?  ) 

C.  TPOT  ( ISO  ) =IP0T  ( 14?) 

T POT ( 0 3 ) r I POT ( 04  ) 

C TPOT ( 152) =IP0T ( 144) 

IPOT (22  ) = I PU  T (16  ) 

C TPOT  ( 1S3)  = HIJN*RPS3*7  + 0.5 

IPOT (110) =HUN*RPS3*T 
C IPOT  ( 154)  =HIIN*RPS4*T*0.5 

IPOT ( 1 14) =HUN*«PS4*T 
C IPOT ( 156) =A IBPP/AlHP*T+0.5 

IP0T(119)=ATBRP/AIHR*T 
C IPOT(157)=(4.0/AIWR)*T*PaRAM(240)*0.5 

IPOT ( 1 12) = (4 .0/AIBR) *T*PARAM (240) 

C IPOT  ( 16B)  = <60. 0*AKT3/  (1  0000.0*  AT  WR)  ) *T  + 0.e; 

IPOT(113)=(60.0*AKT3/(10000.0*AIBR))*T 
C.  IPOT  (159)=]  . 5*7+0, 5 

TPOT ( 160) =1 ,5*T*0.5 
IPOT ( 164) = T POT ( 156) 

IPOT (50  ) = I POT (119) 

C IPOT ( 165) = (4,0/AlWP) *T*PARAM (£41 ) +0.5 

IPOT ( 1 1 1 ) = (4 . 0/AIBR) *T*PARAM (241 ) 
r IPOT(]66)  = (60.0*AKT4/(10000.0*AIWR)  ) *T  + 0 .f 

I POT ( «3  ) = (60.0*AKT4/(10000.0*AIHR))*T 
C IPOT ( 177) =TOU*2. 0*CRP*T+0 .5 

T POT ( ?P  ) =. 1 *T0U*2. 0*CRP*T 
C TPOT (178)=lPOT (177) 

IPOT (54  ) = I POT ( 29  ) 

C TPOT ( 179) =IP0T ( 135) 

IPOT ( 107) =TP0T (87  ) 

C IPOT ( 180) =IP0T ( 136) 

IPOT ( 1 08) =lPOT (88  ) 

C.  IPOT  ( 181  ) =IP0T  ( 1 35) 

IPOT ( 1 17) =IP0T (87  ) 

C IPOT ( 18?) =IP0T ( 136) 

IPOT ( 118)=IP0T (88  ) 

C IPOT (183)=1.5*T*0.5 

I POT ( 106)=0.2*T 
C IPOT ( 184) =1 ,5*T*0.5 

IPOT ( 1 16) sIPOT (106) 

C IPOT ( 192) = (AKT3/ (5000. 0*AMUR) ) *T*0.5 

IPOT(10  )=(AKT3/(5000.0*AMUR) )*T 
r TPOT (1Q3)=(AKT4/ (5000. 0*AMUR) )*T+0.5 

T POT ( 1 1 ) = ( AKT4/ (5000.0*AMUR)  ) *T 

0 IPOT ( 1R4) =( 0.2/AMS) *T*0 .5 

I POT ( 1 2 ) = ( 0 . 1 / AMS ) *T 
0 IPOT ( 195) = ( 0 . 1 /AMUR) *T+0 .5 

I POT ( 1 3 ) = ( 0 . 1/AMUR) *T 
0 IPOT ( 196) =IP0T ( 195) 

IPOT (09  ) = I POT (13  ) 

r IPOT ( 176) =TOU*CRP*T*0.5 

TPOT (27  )=T0U*CRP*T 
C IPOT  ( 188)  =IP0T  ( 176) 

IPOT (49  ) = I POT (27  ) 
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0001-0150 


IF ( T AX.EO.?) 60  TO  10?] 

C.uuHtUf  SOL  T n AXLE  LOGIC  FOP  680  HHUHU 

*H*n#*;  H«*nnnnnuutt#*ttuuuunu*u*uuH*nu 
C A | L SSPP(OO.IPLFPP) 

CAl  L SSPP (01 » TRLFPP) 

CA| L SSRP (02* I«LEPP) 

CAi L SSPP (03» IPLEPP) 

CAi  L SSPP (07* IRLEPR) 

CAl.L  SSRP  ( 10*  IRLERR) 

CAl  L PSCL  ( 01  ♦ IPSCLE  ) 
r TPOT ( 93 ) = 0 

I POT ( 4 1 ) = n 
C T POT ( PS ) = o 

I POT (40) =n 
C TPOT ( 1 0 3 ) = 0 

I PO  T ( 4 ? ) =0 

C I P 0 T ( 1 0 9 ) s 0 

I PO  T (81  )=0 
C I POT ( 1 1 1 ) =0 

TPOT (HO  )=0 
r I POT ( 1 1 9 ) =0 

IPOT(h?  )=0 

C TPOT ( 155) = ( TS02/40.0) *T+0.5 

I POT (36  ) = ( TSO2/40 . 0 ) *T 
C IPOT ( 163) = (HUN#TS02*T+0.5> 

T POT ( 46  ) = <HUN*TS02*T) 

C IPOT  ( 167)  = ( TR02/40.0)  *T«-0.5 

TPOT (109)  = (TPOP/40.0) * T 
C TPOT ( 168) =IP0T (167) 

TPOT ( 1 1 5 ) = I P 0 T (109) 

C TPOT ( 171 ) =TPOT ( 155) 

TPOT ( 45  ) = I POT ( 36  ) 

C TPOT ( 17?) =IPOT ( 163) 

TPOT (35  ) = I POT (46  ) 

C I POT (173)  = (PR/ (40 00. 0*TS) )*T*0.5 

I POT ( 26  ) = (PR/ (4000. 0*TS)  ) *T 
C IPOT ( 185) =IP0T ( 173) 

T POT ( 53  ) = I PO  T (26  ) 

C IPOT ( 189)=0.40*T-*0,5 

I POT ( 1 7 )=0.40*T 

C TPOT(191)s(10.0*TS/AIR)*T-M).5 

T POT  ( 1 5 ) = ( 1 0.0*TS/AIR)  *T 
GO  TO  10?? 

10?1  COOT  I NIJE 

Cn»Hnnn*H*muHiiHii#u*n#***nuu4Hnn*nn*n*u*  ******* 
c**t»*«  SPLIT  axle  LOGIC  FOR  680  ##### 

c * tm  *at  ****  nun  nu«nn##uu*#un#  ******  ************* 
CALL  SSRM(00*IRLERR) 

CAl  L SSRM(OltTRLEPP) 

CA|  L SSRM (02* IRLEPR) 

CAl.L  SSRM(03»IRLERR) 

CA|  L SSRM (07* IRLFPR) 

CAi  L SSRM ( 10* IRLFPR) 

CA|_L  SSCL  ( 01  , ISSCLE  ) 

C IPOT (P3) =2*0/ ( 10.0* AMUR) *T  + 0 .5 

TPOT (41 )=?. 0/ (1 0.0* AMUR )*T 
C IPOT  (95)  =aKT3*?.0  / (500 0.0* AMUR)  *T«-0.5 

IPOT (40 ) =aKT3*2, 0/ (50 00.0* AMUR) *T 
C IPOT ( 103) = (0.2/AMS) *T*0. 5 
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T POT ( 42  )=( 0 . 1/AMS) *T 
c T POT (l<)9)=2.0/( 10.0* A MUR) * T ♦ 0 . 5 

TPOT(Hl  ) =?.o/ ( i o.o*amur) *t 
c tpot<hi)=akT4*?.o/  (soon . o*amur)  *t 
TPOT  MO  )=AKT4*?.0/  <5000.0*AMUR)  *T 
c TpoT (119)=(o.?/amS)*T+0.5 

IPOTM?  )=(0.1/AMS)*T 
r TPOT (1 55 ) = 0 

I p 0 T ( 3 6 ) = 0 
r ipot<163)=o 

T POT  ( 46  )=0 
f TPOT ( 1 07) =0 

TPOT ( 1 09) =0 
C I p0T ( 1 68 ) - 0 

I POT ( 1 IS) =0 
c iPor(i7i)sO 

I POT  ( <f  S ) - 0 
0 TPOT(172)=0 

TPOT(3S  ) = 0 
f I POT  ( 1 73  ) r'O 

TPOT (PS  ) = 0 
0 TPOT ( 1 05) =0 

T POT ( S3  )=0 
C TPOT ( 1 89) =0 

IPOT(17  )=0 
C T POT ( 1 9 1 ) = 0 

T POT ( 1 S ) =0 
102?  CONTINUE 
C SFTN  ( 1 ) =-i  0 0 . 0«-TTN 

SFTN ( 1 ) =-) 00. 0 
SFIN (2) sSFlM ( 1 ) 

SFIN(3)*SfIM(1> 

C SFTM(4)=10.0*TIN 

SFTN (4) =10.0 
SFIN (S) =SFlM (4) 

SFTN (6) = SFlN (4) 

C SFIN(7)=TTN 

SFTN (7) =1 .0 

C SFIN (0) =0.28*TIN 

SFTN(8)=0.25 

IF  ( I AX.EQ.?) SFIN (7) =SFTN ( 1 ) 

IF ( T AX.E0.2) SFIN (8) =SFTN (4) 

C SFIN (9) =0.5*TIN 

SPIN (9) =0.5 
SFIN ( 10)=SFTN(9) 

C SFTN(11 )=?. 0/1  0000. 0 

SF  I N ( 1 1 ) =?. n 
SFIN ( 12) =SFTM (11) 

SFIN ( 13) =9FTN ( 1 1 ) 

SFTN ( 1 4) ssFIN { 1 1 ) 

C SF IN ( 15) =1 0O0 . 0*TIN 

SFTN (15) =1000.0 
SFIN ( 16) =SFTN ( 15) 

SFIN ( 17) =9FTN ( 15) 

SFIN ( 10) =9FIN (15) 

C SFTN (19)=Q. 0001 

SFIN ( 19) =1  . 0 
C SFIN(20)=0.0001 

SF IN (20 ) =1  . 0 
C SFIN(21)=0.0001 
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SFTM (21 ) =1 .0 

00010730 

r 

SFTM (22) = ft  • 0 ft  0 1 

00010740 

SFTN (??) =1 .n 

00010740 

r 

SFIN(?3)=l0ft./T 

00010750 

SFTM (23)  = 1 On. 

00010750 

r 

SFTM(24)=1  Oft./T 

00010760 

SFIN (24) =1  Oft . 

00010760 

r 

S F I N ( 2 5 ) = ) . 0/ T 

00010770 

SF  T w ( 25  ) =1  .0 

00010770 

r 

SFTN'  (26)  =1  .ft/T 

00010780 

SFTM (26) =1 .0 

00010780 

r 

SFTN(?7)  =1  .ft/T 

00010790 

SFTM (27) =1 .ft 

00010790 

r 

SFTN<28)=1 * 0/T 

00010800 

SFTM (28) =1 .ft 

00010800 

IN(23)=RPSl+SIttN(0.5,WPSl  ) 

00010810 

IN (24 ) =WPS? ♦ S I GN ( 0.8, WPS?) 

00010820 

TM ( 25) =0 

00010830 

r 

TN(26)=lOoOft 

00010840 

I N ( 26 ) = 1 

00010840 

TN (27 ) =0 

00010850 

r 

TM  f 28 ) =1  On  On 

00010860 

IN (28) =1 

00010860 

DO  10  1=1,48 

00010870 

SFOUT ( I ) =1  . 0 

00010880 

1ft  CONTINUE 

00010890 

r 

SFOUT (9) =1  .0 

00010900 

SFOUT (9) =1 .0/10000. 

00010900 

r 

SFOUT ( 1 0 ) =0 . 1 *T 

00010910 

SFOUT (10)= 0.1 

00010910 

c 

SFOUT ( 14) =1 .0 

00010920 

SFOUT ( 14) =1 .0/10000. 

00010920 

r 

SFOUT (25) s0.02*T*AKT3/AlR 

00010930 

SFOUT <25)=0. 02*  AKT3/AIR 

00010930 

c 

SFOUT (27) s0.02*T*AKT4/AIR 

00010940 

SFOUT (27) =0,02*  AKT4/AIR 

00010940 

c 

SFOUT (?8)=0.01ttT 

00010950 

SFOUT (28) =0.01 

00010950 

c 

SFOUT (37) = ( 1 ,0/1500.0) *T 

00010960 

SFOUT (37) =( 1 . 0/1500.0) 

00010960 

RETURN 

00010970 

FNO 

00010980 
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00012209 

00012210 


SU3R0UT I Nf  SBPG2 
SUR-ROUTINF  SHPG2 
COMMONJ/APl  / OPEN  . RTSW  ♦L.DTSW  ,RRSW 
COMMON/UE V T CE/KFYRD. I T T Y * I CORD . LP TR 

C0mv«0i\J/HHuH/H1*H?»H3»H4  00012220 

Common /SP|  T AX/SPSP3.CPSR3.SPSR4.CPSR4.SCR3.SCR4.TRCR3.TBCR4.TPSR3. 0 00 12230 


1 TRbR4»TRSR3»  TRSR4.TRCR3.TRCR4.PSR3.PSR4.  I AX 
COMMOM/TAwLPS/PHIFNT ( 7) , THEFNT (7).RSIFNT(7).PHIRR(7).THFRR(7), 

1 PS  I PR ( 7 ) 

C0MM0N/EX7RA/  UOUT ♦ROUT . PS  I OUT . E X T AB  ( 1 0 0 ) . 

1 OLYTB ( 1 On ) *RT AB ( 1 00 ) 

COMMON/FPTOAY/BTVMAXtBTVTB ( 100  ) 

COMmon/TH TNflS/TMfl XI . TM A X ? , TM AX 3 , TQRM A X . TQFM A X » PS I M A X . ONER 
COMMON /FF^S/FFE] .FEE 2. THF1 » THE? 

COmmON/DFI  S/DELSWC 

COMMON /CLP AM/ONFO A . ONEGO, PRSW» PR 

COMMON/NUTS/TOO 

COMMON/XY7/NUMHR 

COmmON/QUa NTS/Ql) AN 1 .QUAN2.QUAN3.0UAN4 

COmmON/EFtS/ANUm, ADEN»  ANUMOT . A OF NO T * ANUMO . AOE NO ♦ ANUMDO ♦ ADENDO » 

1 AN OUT  « aDOUT 

COmmOn/XRR/XB (12).NS(4.12).DELX(4).XI(4) .NNN 
COMMON/NFwFR/T IMF  25*  TIME1 0 ,RMAX*FTAMAX»PST5»PHIMAX»DSWMAX 
COMMON/ VA dS/P. Q.R, U. V.W.X .Y.Z.THF » PH  I ♦ PS I , PO ♦ QO . RO * UO » VO . WO . XO ♦ 

1 YO.ZO.ThEO.PHIO.PSTO 

COMMON/UVw/VC.UlN 
COMMON/EFS/Ol .02.03.E4.E5.F6 
COmmON/ZTI  Ch/TQMAXP. AKTQP 

COMMON/INoUT/INA (32)  » I OUT  A ( 40 ) , IN(32)  . I OUT (48)  * I SW 1 ♦ I SW7  , SF  I N ( 32  ) 
1 SFOUT (48) . TPRT. ITMP (48) 

COMMON/ AN a LOG /DFL 1 D T.DEL2DT .DEL3DT .DEL 1 . DFL2 . DEL3 ♦ PH  I RO ♦ PH  I R , 

1 DELFWi .OELFW2.U1P.U2P.U3P.U4P.S1P.S2P. S3P » S4P * TT A * PFSLP 
COMMON /COmRLK/A I XPtSMt A I YP. AIXZP.GAMl .GAM2.GAM3. AIXBP. AIYBR. 

1 A I ZRR  * A 1 .A2.AIXZRR.A12.E1 .E2.E3.0ELTA.GV1 .GV2.GP1 .GP2»GR1 . 

1 GR2.CTP.CIVP.RZF.RZR.A2T.CA20.CA23.TIME.DT,  ANGNL  * ANGNLO 

1 .TR02,TF02,TS02.G,THRD,TWN7 

COMMON/DOO/O IN fODTOt DOT » TIMES *DDO»DD*DOUT 
COmmON/OPSW/IHSW 

C0MM0N/SP7RLK/N1 ,M2» IPOT  (244)  * I POT AD (244)  ,PARAM(300) 


1 ).BTTB(10n),DTR(100).EFFTR(100).OYTB(l00),PSlTB 

1 YSPFC.PSTM.XPF 
1 * TmPTR ( 1 00 ) 

COmmON/NONAME/XFND»O.EXIT2 
DIMFNSION  CSI (4) »XPM(4) ,SLP(4) 

EQUI VALENrE 


(100) » NRUN i 


00012500 

00012590 

00012600 

00012620 

00012630 


1 

(PaRAM(  1).AMS) 

. (PAPAM  ( 2)  * AMIJF  ) 

. ( P AR AM ( 3 ) « AMUR ) 

. 00012640 

1 

( PaPAM ( 4)*ZF) 

. (PARAM ( 5 ) ♦ ZR ) 

♦ ( PARAM ( 6 ) ♦ A ) 

♦ 00012650 

1 

( P A R A M ( 7 ) * B ) 

, (PARAM(  8 ) ♦ TF ) 

* ( P AR AM  ( 9 ) * TR ) 

* 00012660 

1 

(PARAM (10) ,TS) 

, (PARAM  ( 1 1 ) ,AIX) 

♦ (PARAM ( 1?) »AIY) 

. 00012670 

1 

(PARAM ( 1 3)  * AIZ) 

♦ (PARAM(14) *AIXZ) 

. (PARAM ( 15) »AIR) 

. 00012680 

1 

( PARAM  ( 1(4)  * CF  ) 

* (PARAMU7)  ,RF) 

♦ (PARAM ( 18) »CFP) 

. 00012690 

1 

( PARAM ( IQ)  ♦ AKF ) 

♦ (PARAM (20) tALAMF) 

♦ (PARAM (21 ) *OFC) 

♦ 00012700 

1 

(PAPAM (25) ♦ CRP ) 

* (PAPAM (26) .AKR) 

♦ (PARAM (27) tAL AMR) 

t 00012710 

l 

(PARAM  f 2?)  .OFT) 

, (PARAM (23) .CR) 

, (PARAM (24) .PR) 

♦ 00012720 

1 

(PARAM  (28)  , ORC ) 

, (PARAM(29) tORT) 

. (PARAM (30 ) .AKRS) 

. 00012730 

1 

(PARAM (3) ) »RW) 

♦ (PARAM(32) *R4) 

. (PARAM(33) .OT) 

. 00012740 

1 

(PARAM (34)  ♦ C A 0 ) 

♦ (PARAMOS)  »CA1  ) 

. (PARAM (36) .CA2) 

♦ 00012750 

1 

(PARAM (37) ♦ C A3 ) 

, (PARAMOR)  »CA4) 

. (PARAM (39) .AISW) 

♦ 00012760 
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1 

(PAPAM (44) 

♦ AKPL) 

, (PARAM (41 ) 

♦ AKSC) 

, ( P ARAM ( 4? ) 

» ANG ) 

9 

1 

(PARAM (47) 

, WC  ) 

, ( PARAM  ( 40 ) 

• ANL2) 

♦ ( PARAM ( 45 ) 

♦AKSL) 

FQilI  VALFNCF 

1 

(PAPAM ( 46 ) 

, AML  1 ) 

, (PARAM (47) 

, AIFW) 

♦ (PARAM ( 48 ) 

♦ HDL) 

9 

1 

(PAPAM (49) 

, A T WF ) 

, ( P AR AM ( 50 ) 

» AIWR) 

* (PARAM (51  ) 

♦ AID) 

9 

1 

(PARAM (52) 

♦ APRP) 

, (PARAM (63) 

, EPS  1 ) 

♦ (PARAM ( 54 ) 

» EPS2 ) 

9 

1 

(PAPAM (55) 

♦ P TRR ) 

, (PaRAM ( 56 ) 

♦YSA1 > 

♦ (PARAM ( 57 ) 

♦ YSA2 ) 

9 

1 

(PAPAM (5m ) 

♦ YHS1  ) 

, (PaRAM ( 59 ) 

,YHS?) 

» (PARAM ( 60 ) 

* AKD) 

t 

1 

( PARAM ( 61 ) 

, TOORR) 

, ( P AP AM ( 62 ) 

» AK  ) 

, ( PARAM ( 63 ) 

♦ PIN) 

9 

] 

(PARAM  f 64 ) 

♦ UIN) 

, ( PARAM ( 65 ) 

» R I N ) 

, ( PaRAM ( 66 ) 

♦ UIZ) 

9 

1 

(PAPAM (67) 

, VTN) 

, (PARAM (68 ) 

♦ WIN) 

» (PARAM ( 69 ) 

♦ XIN) 

9 

1 

(PAPAM  ( 7 0 ) 

♦ YIN) 

, (PARAM  (71 ) 

♦ Z I N ) 

♦ (PARAM ( 72 ) 

♦THEIN) 

9 

1 

(PARAM ( 77 ) 

, PHI  IN) 

» ( PARAM ( 74 ) 

♦ PS  I IN) 

♦ (PARAM (75) ♦DTIN) 

9 

1 

(PARAM ( 76 ) 

, TFNn ) 

, ( P AR  AM ( 77 ) 

♦ AKT 1 ) 

, ( PARAM ( 78 ) 

♦ AKT2 ) 

9 

1 

(PARAM(7Q) 

♦ A K T 3 ) 

, (PARAM ( 80 ) 

, AKT4) 

, ( PARAM (81) 

♦ RPS 1 ) 

9 

1 

(PARAM (8?) 

* RPS? ) 

, (PARAM (83) 

♦ RPS3 ) 

♦ (PARAM ( 84 ) 

♦RPS4) 

9 

1 

(PARAM (86) 

• B1  ) 

, (PARAM ( 86 ) 

,B2) 

, ( PARAM ( 87 ) 

♦ 83) 

fqutvalencf 


1 

1 (PAPAM  ( P 1 ) ♦0FL3DN) 
1 (PAPAM ( P4 ) ♦ PEL  3 1 N ) 
] (PAPAM ( 97) ♦ 0FW1 IN) 
1 (PAPAM  ( 1 00  ) ♦ IJPPIN)  ♦ 
1 (PARAM ( 103) » S1PIN) * 
1 (PAPAM ( 1 06) .S4PTN) ♦ 
] ♦ (PARAM() 1 0) ♦TOmAX) 

1 ♦ (PAPAM (ll3)  ♦SWMT)  ♦ 


(PAHAM(  PP)»DEL1DM) 

(PARAM  ( 92)  »nFLlIN)  ♦ 

(PARAM  ( 9*0  *PHinN)  » 

(PARAM(  9H),DFW2IN) 

(PARAM ( 101  ) * U3P I N ) * 

(PAPAM (104)  ♦ S2P  T N ) * 

(PARAM (107)  ♦ PPPT ) 

* (PARAM(lll) ♦ A K T Q ) ♦ (PAPAM (112) ♦ V C I N ) 
(PARAM  ( 1 14)  tDSWCM)  ♦ (PAPAM(llS)  » TST ) ♦ 


( PARAM  ( 90 ) * DEL2PN ) • 
(PARAM(  03)»DEL2IN), 
( PARAM ( 96 ) * PH I RN ) ♦ 

( P AR AM ( 99 ) * U 1 P I N ) * 

( P ARAM  ( 1 0? ) ♦ LI4P I N ) ♦ 
(PARAM( 105) * S3P I N ) ♦ 


1 (PAPAM (11*)  tDSLP)  ♦ (PARAM (117)  ♦CRAM)  ♦ (PARAM (lift)  ,CS) 

1 ♦ ( P ARAM ( 1 1 9 ) ♦ TORRR ) *(PARAM(120)»  TOFRR ) 

1 «(PARAM(121)  * PFL ) ♦ ( P AR AM ( 1 ?2 ) ♦ T TD ) ♦ ( P AR A M ( 1 23 ) ♦ DSW ) 
1 ♦ (PARAM (124), rSW) 

FQIIT  VALENCE 


1 ( PAPAM ( l 30 ) , AMCP) *(PARAM(131),ESP),(PARAM(132)*AKSL1)* 

1 (PARAM ( 1 33) ♦ AKSL2)  ♦ (PARAM(134)  ♦ AA1 ) ♦ <PARAM(135>  *AA2) ♦ 

1 ( PARAM (1 36) »CCR) * (PARAM (137) »CFCR) * (PARAM (138) *AP) * 

1 (PARAM ( 1 39) ,EP1 ) , (PAPAM (140) ,FP2) ♦ (PARAM ( 141 ) ♦ FRRl ) • 

1 (PARAM ( 1 42)  ,ERR2)  t 

1 (PARAM (1 43) , AML  1 )*(PARAM(l44) ♦ AML2 ) * (PARAM ( 145) »RRIM) , 
1 (PARAM ( 146)  »RWR)  , (PARAM ( 147)  »AKV) ♦ 


l 

(PARAM ( 1 48) ♦ AK1 

) 

9 

(PARAM ( 149) ,AK2  ) 

9 

( PARAM ( 150 ) ♦AM  ) 

l 

(PARAm ( 151  ) ♦PM 

) 

9 

(PARAM ( 15?) ♦PV  ) 

9 

(PARAM ( 153) ♦ RT  ) 

l 

( RARAm ( l 54 ) ♦ TO 1 

) 

9 

(PARAM(156) ,TD2  ) 

♦ 

( PARAM ( 1 56 ) ♦ TD3  ) 

1 

( PARAM  ( 1 57 ) ♦ TD4 

) 

9 

(PARAM ( 158)  ♦Yl  ) 

9 

(PARAM (159) ♦YMAX) 

i 

(PARAm(160) ♦ZET1 ) 

9 

(PARAM ( 161 ) ♦ ZFT? ) 

9 

(PARAM ( 162 ) ♦ EX  1 ) 

l 

(PARAm  (163)  ♦ TBF 

) 

9 

(PARAM ( 164) ,TRR  ) 

9 

(PARAM ( 1 65 ) ♦ T 1 ) 

l 

(PARAm ( 1 66) ♦ WN1 

) 

9 

(PflRAM ( 167) ,WN2  ) 

9 

(PARAM( 168) ♦Pi  ) 

l 

(PARAm ( 169) ♦PAO 

) 

1 , (PARAM ( 196) ,EPSK1 ), (PARAM ( 197) ,FPSK2) 

1 , (PARAM (274)  * TLF ) , (PARAM (275)  tZRO)  ♦ (PARAM (276) » ALF ) 

FQIJTVALENcE 

1 (PARAM (??3) * CR 1 C ) t (PARAM (??4) ,CR1T) , (PARAM (225) »CR2C) » 
1 ( PARAM (2?6) * CR2T ) , (PARAM (227) *CR3C) ♦ (PARAM (228) ,CR3T) , 

1 (PARAM ( 229 ) ♦ CR4C ) * (PARAM  (230)  ,CR4T)  ♦ (PARAM (231)  *AHl)  ♦ 

1 (PARAM (232)  , AH?) ♦ (PaRaM (233)  * ANL ) ♦ (PARAM (234)  » AKF 1 ) ♦ 

1 (PARAM ( ?35 ) ,AKF2)  ♦ (PARAM (236)  , AKR3 ) * (PARAM (237) » AKR4 ) 


FQUT VALENCE 

1 (PARAM (281 ) ♦TSF)  ♦ (PARAM (282) ♦ TSH) * (PARAM ( 283), TANP), 
1 (PARAM (284) *HFC) » (PARAM (285) ,HRC) ♦ (PARAM (286) ,CRRC) 
FONT  VALENrF 

1 (PARAM(290)  , ROT ) ♦ (PARAM(291)  »PAO)  , (PARAM(292)  ,RAl)  * 


00012770 

00012780 

00012790 

00012800 

00012810 

00012820 

00012830 

00012840 

00012850 

00012860 

00012870 

00012880 

00012890 

00012900 

00012910 

00012920 

00012930 

00012940 

00012950 

00012960 

00012970 

00012980 

00012990 

00013000 

00013010 

00013020 

00013030 

00013040 

00013050 

00013060 

00013070 

00013080 

00013090 

00013100 

00013110 

00013120 

00013130 

00013140 

00013150 

00013160 

00013170 

00013180 

00013190 

00013200 

00013210 

00013220 

00013230 

00013240 

00013250 

00013260 

00013270 

00013280 

00013290 

00013300 

00013310 

00013320 

00013330 

00013340 
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~>  r>  ->  r>  -)  .-> 


1 (PaRAM(293)  »RA2) . (PARAM(294)  .RA3)  * (PAR AM (295)  , RA4) 

POUT  V ALENrf  (PHTRDtOELAOT)  . (PHIR.DFL4) 

DATA  T/lCinOn.O/ 

9EaL.*4  TOUT  ,IM  »itmp 

INTEGFP*2  RTSW  .PRSW  .LDTSW  .OPEN  .OPNN 

L I » 7 X * 4000  * 

WD»  7 X * l?n?» 

STHLk ( TOUTA . TOUT  .48 ) 

SCANm ( T N A » TN.28) 

LROA  (0.48* I OUT  * ILRPAE ) 

TLOA 

CRBC ( 0 , 28  » IN. ICRRDE) 


r a i i 

CALI 
C A | | 

CALL 
C A | L 

DEL 1DT= 
DFl.PDT  = 

DEL  3DT  = 
DELI  = 
DEL?  = 

DEL  7 = 

P H T R D = 

PH  T R = 

D E l_  E W 1 = 
DFLEW1=-I\ 
D E L F W 2 = IN 
DELEw?=-I\ 


( 1 ) *SE IN ( 1) 
2>*SEIN(  2) 

3 )  *SF I N ( 3) 

4) *SEIN(  4) 

5 ) *SE I N ( 5) 

6 ) * S F I N ( 6) 
7)*SEIN(  7) 

8 ) * SE  I N ( H) 
9)*SFIN<  9) 

9 ) *SE  I N ( 9) 

(10) *SEIN ( 1 0 ) 
(TO) *SEIN ( ] 0 ) 
U1P=  IK' M 1 ) *SEIN  ( 1 1 ) 

U2P  = IM(12»*SFIN(12) 

U 3 p = lw(13)*SFIN(13> 

U4P=  TM(]4)*SFIN(14) 

S1P=  IM ( ] 5) *SFIN( 15) 

S?°=  Im()6)*SFIN(16) 

S3P=  IM ( 1 7) *SFIN ( 17) 

S4P=  In ( T 8) *SFIN ( 18) 

QUAN1=TN(19)*SFIN(19)*1. 
QLlAN2=IN  (20  ) *SFIN  (20)  ♦ 1 . 
OUAM3=  IN(2] )*SEIN(21)*1 
IN (22) *SFIN (22) *1 
IN (23) *SFIN (23) 

IN (24 ) *SEIN (24 ) 

IN (25) *SFIN (25) 

IN (26) *SFIN (26) 

I N ( 27 ) *SF I N ( 27 ) 
IN(28)*SFIN<28) 


QU  A N4  = 

A RPS 1 = 

ARPS2= 

WSTH 1 = 

WCTH1= 

WSTH2= 

WCTH2= 

I HSW= 1 

EXIT2  = 10*0*5280. 0*12. 0/3600.0 
ENTRY  S8Pr,2? 

IF (TIME.FO.O. ) TTMFB=0. 

M=1 

IF (TlME.OE .PARAM(175) ) M = 0 
C CALL  SETWO(O.M) 

C 998  FORMAT (• 0 t 8E15. 6/ ( • »8El5.6>) 

998  FORMAT (* 0t .8E1S. 6/ ( » ».8E15.6)) 

I Sw=  1 

IE (TIME.FO.O. 0)ES1=0.0 
IF (TIME.F 0.0.0) ES2=0.0 
TE ( TPRT.EO.O) GO  TO  100 

WRITE  ( I TTv  .998)  DEL  1 DT, DEL2DT, DEL 3DT. DELI  . DEL2 1 DEL3 * PH  I RD » PH I R , 
1 DELEWi .nELFW2«UlP»U2P.U3P»U4P.SlP.S2P.S3P»S4P 
1 .QUAN1 ,0UAN2.0UAN3«0UAN4»PB 
100  TMl=Z-A*TwE 

999  EORMAT(»OAND  THFRF  YOU  ARE  IN  SRPG2*) 


00013350 

00013360 


00013370 
00013380 
00013390 
00013400 
00013390 
00013391 
00013400 
00013410 
00013420 
00013430 
00013440 
00013450 
00013460 
00013470 
00013480 
00013490 
00013490 
00013500 
00013500 
00013510 
00013520 
00013530 
00013540 
00013550 
00013560 
00013570 
00013580 
00013590 
00013600 
0001361 
0001362 
0001363 
000  364 
0001365 
0001366 
0001367 
0001368 
00013690 
00013691 
00013700 
00013710 
00013720 
00013730 
00013740 
00013750 
13750 
00013760 
00013770 
00013780 
00013790 
000138 
00013810 
00013820 
00013830 
00013840 
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IF  (PR.GT.RO.  ) PBSW=1  . 

TB?=TF02*nHT 

Z 1 op- TM 1 + JM? 

Z l P = Z 1 P P + 7 F 
Z 1 = Z I P + DFl  1 
Z?dp=TM1-jmp 
Z?P=Z2PP+7F 
Z?=72P+DF|  ? 

TM  1 =Z  + H-»TnF 
TMPrTPOpttpHr 
Z3PP=TMi  + TM? 

Z3P=Z 1PP+ZR 
Z 3 = Z 3 R + D E I 3 

IF ( T A X . EQ . 1 ) 73  = Z3+TR02«PHlP  + r>EL3“DEl  3 
Z4PP=rMl-TM?  L 

Z4P  = Z<f  PP  + 7R 
/4  = Z4P*DF|  4 

IF ( TAX.EO, 1 ) Z4=74-TPn?«PHlR*DFL3-DFL4 

RWZl=ww+Zl 

RW7 ?=RW+Z? 

RW73sRW+73 
P w Z 4 = R lv  ♦ Z 4 
FR 1 = 0 « 0 
FR?=0. n 
FR3=0.0 
FR4=0.0 

IF(RWZ1,GT.A.0)FR1=AKT]«’RWZ1 

TF(RWZP.GT.0»0)FR2  = AKT?«'RWZ2 

TF  (RWZ3.GT.f).0)FR3  = AKT3*RWZ3 

IF (PWZ4.GT.0.0)FR4=AKT4*RWZ4 

TM1=u+ZF*o 

TM2=TF02*p 

U1=TM1-TM? 

U2=TM1*TM? 

TM1=U«-ZR*0 

TM?=TR02*p 

U3=TM1-Tm? 

IJ4  = TM  1 ♦ TM? 

VARZFPsV*a*P-ZF*P 
VRRZRP=V-c*P-ZR*P 
PPH  T R = P 

IF(TAX,EQ.l)PPHIR=R+PHIRn 
V1=VARZFP+Z] *P 
V?=VARZFP+Z?4p 

V3=VBRZRP*Z3»PPHIR 

V4=VRRZRP+Z4*PPWIR 

WA0=W/-A*0 

WR003  = W-*-R-i»Q*DFL3nT 
TF2P=TF0?*P 
TR?P=TR02»P 
Wl=WAO+TF?P+DELIDT 
W?aWA<j-TF?p  + DEL?DT 
IF ( T AX.E0.2) GO  TO  9738 
W3=WRon3  + TPr>2*PPHIR 
W4=WBQ03“TRn2*PPHXR 
GO  TO  9730 

R73fl  WttQ04  = W*R«Q+.f)EL4DT 
W3  = WRQ034.tR02*P 
W4=WRQ04”TRo2«P 
9730  CONTINUE 


000T3850 

00013860 

00013870 

00013880 

00013890 

00013900 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

00013980 

00013990 

00014000 

00014010 

00014020 

00014030 

00014040“ 

00014050 

00014060 

00014070 

00014000 

00014090 

00014100 

00014110 

00014120 

00014130 

00014140 

00014150 

00014160 

00014170 

00014180 

00014190 

00014200 

00014210 

00014220 

00014230 

00014240 

00014250 

00014260 

00014270 

00014280 

00014290 

00014300 

00014310 

00014320 

00014330 

00014340 

00014350 

00014360 

00014370 

00014380 

00014390 

00014400 

00014410 

00014420 

00014430 

00014440 


I 

I 


7 a 


PSI l=nFLF  '1 +PDLY (HFL1 ♦PSIFNT) +EPSK1 
PST?  = OFLPi-'?-POLY  (OFLPf  PSTFNT)  +FPSK2 
PST 3=aKPS«PhIR 
PST4=oSTS 

pht  1 =POl_Y  rDFLl  * pH  IF  N'T)  ♦ STGN  (FFF1  *FS1  ) 
DMT p = -POLY ( n E l . 2 » P H I F N T )*SIGN(FEF2«FS2) 
PH  T 3 = PH T R 
PHT  4.  = PH  I R 

TF  ( TAX.FQ.  1 ) GO  TO  7843 
PST^  = P()LY  (DFL3«PSIPR) 

PSTA  = -POLv ( nEL4 ♦ PS  I RP ) 

PHT-7  =P0l.v  (0EL3.PHIPR) 

PHT4  = -P0|.Y  (r»El_4*PHIRR) 

7847  IJG  1 =U  1 + T Hi-  <*•">/ 1 
UPP  = LJ?+THt  *w2 
UG3=U3+THf#W3 
IJ  G 4 = U 4 + T H p * td  4 
V(il=Vl-PHT*Wl 
VG?  = VP-PHT  *W2 
VG7  = V3“dht  ^'/J3 
VG4=V4-PH T »W4 
r SlNPSl=XYslN ( PST ] ) 

SlMDSl  = STr-  (PST  1 ) 

0 SINPS2=XYCIN (PST?) 

STMpS2=SIm (PST2) 

S I M P S 3 = P S t 3 
C SINPS4=SImPS3 

SIMPS4=PS t4 

C COSPS 1 =X YrOS (PST 1 ) 

cospsi=co8  (pSi  l ) 

0 OOSPS2=X YpOS ( PST? ) 

COSRS?  = COF ( PS  T 2 ) 

COSPS 3=1 . n 
rnsPS4=cosP^3 

IJG  1 P = UGl»rOSPSWVGl#SlNPSl 
UG?P=UG2«rOSPS2+VG2*SINPS2 
UG3P  = UG3*r»OSPS3*VG3»SINPS3 
tJG4P  = UG4*rOSPS4  + VG4#SINPS4 
PHTCGl=THr»SINPS] +PHI*COSPSl +PHI 1 
PHICG2  = THr*SINPS2  + PHI<»C0SPS2  + PHT? 
PMTCG3=n . n 
PHTCG4=0. 0 

IF(TAX.EQ.l)  GO  TO  900 
PHTCG3=THr»SINPS3*PHI*C0SPS3*PHI3 
PHICG4=THF*SINPS4*PHI*C0SPS4+PHI4 
900  CV1=S0RT (n*U+V«V)*3600.0/ (12.0*52R0.0) 
CV2=CV 1 
C V3=CV 1 
CV4=CV 1 
A R 1 = ARS ( Up  1 ) 

AR?  = AHS  <Ug2) 

AR3=ARS (Ug3) 

AR4  = ARS  ( IJp4  ) 

RETA 1=ATAM ( VG1 /A81 ) -PSI 1*UG1/AR1 
PET  A2  = AT  Am  (VG2/AR2)  -PS  I 2»UG2/ A B2 
PET A 3= A TAM ( VG3/AB3) -PS I 3*UG3/ AB3 
PETa4=ATAm ( VG4/AP4) -PSI 4#UG4/aR4 
AMU1=ENCT(R1»P2.R3*FR1*CV1) 

AMU?  = FNCT (PI  ♦B2tR3»ER2»CV2) 

AMIJS  = ENCT  (R1  tR2»R3*FR3»CV3) 


00014450 

000'14460 

00014470 

00014480 

00014490 

00014500 

00014510 

00014520 

00014530 

00014540 

00014550 

00014580 

00014570 

00014590 

00014600 

00014610 

00014620 

00014630 

00014640 

00014650 

00014660 

00014670 

00014670 

00014680 

00014680 

00014690 
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00014700 
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00014710 
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00014720 

00014730 

00014740 

00014750 

00014760 

00014770 

00014780 

00014790 

00014800 

00014810 

00014820 


00014830 

00014840 

00014850 
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00014870 
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AMtl4  = FNCT  (PI  ♦R2,B3tFP4,CV4) 
C7=C0S  (PST  ) 

S N = 6 I N (PST  ) 


SN1 =PARAM (17Q) 

SM?=PAPAM (170) 

S N TrPAPAM  (170) 

3N4=PAPAM (170) 
INTFUN=PAPAM ( 1 7?) + 0.5 
IF ( INTFUN.FQ.O ) 60  TO  3497 
IF ( INTFUN.NF. 1 ) GO  TO  3498 
Xl=A*C7-TrO?*SN  *X 
X?=A»CZ+TFO?#SN  ♦ X 
X3  = -.R«-CZ-I  P02*SM  + X 


X4=-R*rz^Twn?*SN+x 
SN1=PARAM (170) 
SM?=PAPAM (170) 
SN3=PARAM  (170) 


SM4=PAPAM (170) 

TFMP=PARAM ( 1 73) +PARAM ( 174) 


TFMP=TEMP*12.0 
PPPP=PARAm< 1 73 ) w 1 2 • 0 
IF (XI .GT.pPPP 
IP (X2.GT.PPPP 
IF (X3.6T.RPPP 
IF (X4.6T.PPPP 
60  TO  34 9 w 
3497  CONTINUE 

YY1=A*SN*  TF02*CZ  + Y 
Y2=A*SN-TrO?*CZ  *Y 


. AND.X1 .LF.TFMP) SN1=PAPAM(171) 
.AN0.X2.LF.TFMP) SN2=PAPAM(171 ) 
. ANO.X3.LE.TFMP) SN3=PAPAM ( 171 ) 
•AN0.X4. LF.TFMP) SN4=PAPAM ( 171 ) 


Y3  = -P-*8N-9TR02*C7  *Y 


Y4=-p*SN-TR02*CZ*Y 


SNlsPAPAM (170) 

SN2=PaRAM (170) 

SNlsPAR AM (170) 

SN4=PARAM(170) 

IF(YY1,LT.0.0)SN1=PARAM(171) 
IF (Y2.LT.O.0) SN2  = PARAM  (171) 
IF (Y3.LT. ft. 0) SN3=PARAM ( 171 ) 
IF (Y4.LT .0.0) SN4=PARAM ( 171 ) 
3498  CONTINUE 

AMU]=AMUl<»SMl*0,025 
AMU2=AMU2*Sn2#0.025 
AMU3=aMU3*Sn3«0.025 
AMIJ4  = AMU4*Sn4*0 . 025 
600  CONTINUE 


RM1=FR1*AmU1 


FP 1 PR= AMI N ( FR 1 9 A 2 T ) 

ALF1=CA1#FRIPR* (FR18R-CA?) -CA20 

I F ( ALF1/CA2.6E.0.0  ) ALFl=1.0E-10 

PET  IP  =CA?3« (CA4-FR1PR) *FR1BR*PHIC61/  (CA4*ALF1  ) 

IF (RM1 , EG .0.0)60  TO  610 

9FTlRR=ALFl» (PETA1 *BE T 1 P ) / ( C A2*RM 1 ) 

60  TO  710 
610  RM 1 P = 0 , 0 

RETlHP=0.n 
710  CONTINUF 

RM?=FR2*AmU2 


FR2RR=AMIm (FR?9 A2T) 

ALF2=CA1*fR2BR* (FR2PR-CA2) -CA20 
T F ( ALF2/CA2.6E.0.0  ) ALF2= 1 . 0E- 1 0 
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00015310 

00015320 
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00015370 
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00015410 

00015420 
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onoon  r>  o o r>  n 


REr>>P  = CA?3HMCA4-FP2BR)  »FR2BR*PHTCG2/ <CA4»A|_F2)  . 

TF  (PMp.EQ.O.O)On  TO  620 
RFT?RR=ALf2» (BETA2*BFT?P) / (CA2»RM?) 

BO  TO  720 
420  PM?p=0.0 

RFT?BR=0. 0 
720  CONTINUE 

BA?R  = RA2<*i->A3 
P2 T = P()T ? 

RA?0=RA0#RA2 
P M 3 = F R 3 * A ; ’ U 3 

r FP3RP=AMIw (FR3» APT ) 

FR3PR  = AMIn(  F R 3 ♦ R 2 T ) 

C ALF3=C41*rR3BR» (FR3RR-CA?) -CAPO 

ALF3=RA1*fR3BR* (FR3BR-RA2) -RA20 
T F ( ALF3/pA?.GE.O.O  ) ALF3= 1 • OF- 1 0 
RET3P=RA23* (RA4-FR3RR) *FR3RR*PHTCG3/ (RA4*aLF3) 

T F ( RM3.EO.O.O  ) GO  TO  630 

RFT3RR  = A|_F3»  (BETA3  + BFT3P  ) / (PA2#RM3) 

C TF(  lAX.Fn.1  ) GO  TO  15 

PET3P  = C A 2 3 * ( CA4-FP3BR  ) *FR3RR#PH I CG3  / ( CA4*ALF3  ) 
GO  TO  16 
16  RF.T3P  = 0,0 

16  CONTINUE 

TF  (PM3.EQ. 0a 0 ) GO  TO  630 
8ET3BR=ALr3* (BFTA3+RFT3P)  / (CA2*Pm3) 

GO  TO  730 
630  RM3P=0 • 0 

RET3RP=0 , 0 
730  CONTINUE 

PQ6  FORMAT(*0  * E 1 5 • 6 ) 

Q96  FORMAT  < * 0 * »F1B.6) 

RM4  = FR4#A'-«U4 
FR4RR=AMIN(FR4» A2T) 

FR4RR=AMIm ( FR4  * R2T ) 

ALF4=CA1*FP4BR* (FR4BR-CA?) -CAPO 
ALF4=PA1*fR4BR* (FR4BR-RA2) -RA20 
I F ( ALF4/PA2.GE.0.0  ) ALF4=l,0E-10 

RET4P=RA2R* (RA4-FR4RR) «FR4BR*PH T CG4/ (RA4*4LF4) 

I F ( IAX.EO.I  ) GO  TO  17 

RE  T4P  = CA23*<  CA4-FP4RR  ) *FR4BR*PH I CG4  / ( CA4#ALF4  ) 

GO  TO  18 

17  RFT4P  = n.O 

18  CONTINUE 

IF  (RM4.EQ,0.0)G0  TO  640 
C BET40R=ALF4# (BETA4+BFT4P) / (CA2*RM4) 

RFT4BR=ALF4»(RETA4+BFT4P) / (RA2*RM4) 

GO  TO  740 
640  RM4P=0.0 

RET  4RR  = 0 • n 
740  CONTINUE 

ALF1=ALF1 «TSF 

alf?=alfp*tsf 
ALF3=ALF3*TSR 
A|_F4  = ALF4*TSR 
AB1=ARS(RfT1BP) 

AB2=ABS (RrT2BR) 

AB3=ARS (HFT3BR) 

AR4=ARS (BFT4RR) 

IF(AR1.GE. 3.0)GO  TO  10 
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GR 1 = RFT  lpn#  ( 1 , U-THRD*ARl  ♦ T WN7*BET 1 RR**? ) 

00(715930  i 

20 

TF(AB?.GF.3.0)GO  TO  30 

00015940 

GB?=BFT2Rp*  ( 1 .0-THRD*AR2«>TWN7*BFT28R**2> 

00015950 

4(1 

TF (AP  3.6E.3.0)  GO  TO  50 

00015960 

GR3  = RPT3P»«-  ( 1 , 0-THRD*AR3*TWN7*BET3BR»#2) 

00015970 

bn 

IF (AB4.GE.3.0JGO  TO  70 

00015980 

GB4aBF T4Po* ( 1 . 0-THRD*AR4*TWN7*BET4BR**2) 

00015990 

GO  TO  80 

00016000 

1 n 

GR I =BF  T 1 HP/ AH  1 

00016010 

GO  TO  20 

00016020 

30 

GB?=RET28P/AR? 

00016030 

GO  TO  40 

00016040 

50 

GR3=BFT3Rp/AB3 

00016050 

GO  TO  60 

00016060 

70 

GR4=RET4Ro/AB4 

00016070 

8 0 

continue 

00016080 

SL  I p 1 sQUAm  1 

00016090 

SLTP?=QUAW? 

00016100 

SL  IP3  = OUAm3 

00016110 

SLIP4=QUAm4 

00016120 

TF (QUAN1 .!  T,  (-1 .0) .OR.QUAN1 .GT. 1 .0) SLIP1=SIGN( 1 ,0*QUAN1  ) 

00016130 

TF (0UAN2.I  T.  (-1 .0 ) , 0R.0UAN2.GT . 1 . 0 ) SL I P2  = S I GN  « 1 ,0»QUAN2) 

00016140 

IF (OUAN3.I  T. (-1 .0 ) .OR.QUAN3.GT. I .0) SLIP3=SI0N ( 1 .0»QUAN3) 

00016150 

TF  ( Q U A N 4 « | T.  (-1.0)  . OR  . QU  AN4  . GT  . 1 . 0 ) SL  I P4  = S I GN  ( 1 . 0 ♦ QUAN4  ) 

00016160 

OSLMsPARAM ( 1 1 4) /PAR AM ( 1 16) 

00016170 

XTMPsPARA" ( 121 ) /PA RAM ( 1 92) 

00016180 

IF (PARAM( 12M .NE.O.OJGO  TO  4321 

00016190 

TF ( TIME ,GT. TST ) GO  TO  6000 

00016200 

OELSW<“  = Oo  o 

00016210 

GO  TO  7 0 0 o 

00016220 

6000 

OELSWC=  (TTMF-TST)  *OSl.M 

00016230 

IF ( ABS (DEI  SwC ) .GT.DSWCM) DELSWC=DSWCM*SIGN ( 1 .0»DELSWC) 

IF (PARAM ( 1 2P ) .EQ.3.0)GO  TO  7000 

I F ( TIME. GT. 4. 5 )DELSWC=DSWCM*(5.5-TIME)*SIGN(1.0fDELSWC) 

00016240 

: 

7000 

DELSWC=DEl  SWC*. 01745329 

00016250 

PF  = 0,0 

00016260  i 

IF (TIMF.LT.TTD)GO  TO  4444 

00016270 

PF= (TIME-CGAM) #XTMP 

IF (PARAM( 128) .EQ.1.0)GO  TO  2223 

IF (PARAM()2R) »EO«3«0)GO  TO  2223 

00016280  : 

22?? 

IF (PF.GT.PFL ) PF=PFL 

00016290 

IF (TIME.LT.CGAM) PF=0.0 

00016300 

PFR= ( TIMF-CS) *<TMP 

TF ( TIME.gT.CS  ) PFsPF* (CS-TIMF) /10. 

00016310  ! 

IF (TIMF.LT.CS) PFR=0.0 

00016320 

TF (PFR.GT.PFL) PFRsPFL 

I F C TlME.oT.CS  ) PFRsPFR* (CS-TIMF) /10. 

00016330 

T OFRRa-FF (PF ) 

00016340  1 

TQRRR=-FR (PFR) 

00016350 

GO  TO  234R 

00016360 

???  3 

PF- (TlME»rGAM) »XTMP 
IF (PF.GT.PFL) PF=PFL 

PFR= ( TIME-CGAM) *XTMP 

TF (PFR.GT.PFL) PFR=PFL 
TQFRRs-FF (PF) 

TQRRR  = -FF  (PFR) 

IF (TIME.LF.CGAM) TQFBR=0. 
TF ( TIME.LF.CGAM) TQRRRsO. 
GO  TO  234R 

4444 

TQFRHrO.O 

00016370 
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TNRHK=AKT3P* ( VC-UOUT) 

TF(TQ«MK.r,T.TOMAXP)TOWpR  = TQMAXP 

«0  TO  ?34<; 

4321  CONTINUE 

IF  (PARAM  (1  7ft)  ,EO,().  ) GO  TO  103 

TF ( ( T I M F P . F o # 0 • ) .AND.  (P«SW.NE.O. ) ) T T ME  R = T T MF 
TF  (TIMER.  FO.O.  )G()  TO  104 

0FLSW0=SlM(3.14mQ3o(TlMF-TIMEB)*PARAM(179))*DSW*,0174S329 
TF ( (TIME-TlMFR) .fiT.TSW) DFLSWC=0. 

GO  TO  10  5 

103  FONT  I Nl IE 

DFLSI*C  = STH  ( 3. 14]  593* TIME*P ARAM  ( 179)  ) *DSW*.01  745329 
IF ( TIMF.GT.TSW ) OFLSwr=0.0 
00  TO  10  5 

104  OFLSWC=0. 

105  CONTINUE 
PF=0.u 
TQPPPrO . 0 
TQFPP=0 . 0 

IF (PARAM ( 1 25) .FQ.0.0 > GO  TO  2345 

IF (TIME. I r.PAPAM(?7ft)  . ()R  . T I MF  . GT  . P AR  A M ( ?79  ) ) GO  TO  2345 
PF=(TTMF-n>4PAM(?7P)  ) *26000 . 0 

IF (PF.GT.^Fl ) PF= PFL 
T QRPR=-FR (PF) 

TOFRR=-FF  (PF) 

2345  CONTINUE 

SAm1=(PETa1+PFT1P)«57.?957R 
5AM2= (PET A24HET2P) *57.29573 
SAM. 3= (RETA3+BFT3P) *57.29578 
SAM4=((3ETa4  + HET4P)  *57.295  78 
IF  (PARAM ( n62)  .EQ. 0 .0 ) GO  TO  7312 

AMI  1 =F AMI  r (FR1  » 5 A M ] ) 

AM1?  = faM1t  (FP2«SAM2) 
ami 3=fam] t (FR3»SAM3) 

AMI 4=FAM1 T (FR4*SAM4) 

GO  TO  7311 
7312  AMI  1 = 10. 

AM  12=10. 

AMI  3=1 p. 

A M 1 4 = 1 0. 

7311  CONTINUE 

AMI  1=aM1 1 *Sn1 *0.025 

AM12=AM12*Sn2»0.025 

AM13=AM13*Sn3*0.025 

AM14=AM14*Sn4*0.025 

IF (AMI  1 .GT. 29.9) AMI 1=2Q.9 

IF(AM12.GT.29.9)AM12=29.9 

IF(AMi3.RT.pq.9)AM13=29.9 

IF(AM14.GT.29.9)AM14=29.9 

U01=FU0I  ( S AM  1 ,CV1  ) 

U02=FU0I ( ?Am2»CV2) 

U03=FUOI (FAm3«CV3) 

IJ04  = FU0I  (fAm4iCV4) 

U11=FU1 I (SAMI ) 

U 1 2 = F(J  1 I (SAm2) 

U1 3 = F U 1 I ( S A m3 ) 

U 1 4 = F U 1 I ( S A M4 ) 

U01=U01*Sm1*0.025 

U02=U02*Sn2*0.025 

U03=U03*Sm3*0.0?5 
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00016760 

00016770 

00016780 

00016790 
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00016820 

00016830 

00016840 
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00016870 

00016880 

00016890 

00016900 
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00016940 
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U04=U04*Sm4oo . 025 

00016980 

U11=U11*Sm1»0.0?5 

00016990 

U1?  = U12*S*'2»0.0?5 

00017000 

U1 3=U13*Sm3*0 .025 

00017010 

U14=U14*Sm4*0.0?5 

00017020 

A«?l =U 1 1 — 1 1 0 1 

00017030 

AM??  = U1  2-tjO? 

00017040 

AM?3  = U13-'.f03 

00017050 

AM?4=U1 4-M04 

00017060 

SI1=U01/(aM1 1-AM?] ) 

00017070 

si?=uo?/ < ami ?-am??) 

00017080 

SI 3=U03/ ( ami 3-am?3) 

00017090 

SI 4 = U04/ ( am  1 4-AM?4 ) 

00017100 

RA^l=qFTAl ♦MET  IP 

00017110 

R4M?=RFTA?+RFT2P 

00017120 

RAMT  = reTA-)*RET3P 

00017130 

R AM4  = HF.TA4*«FT4F 

00017140 

XRM ( l ) =RAm1 

00017150 

X RM (?) = RA"2 

00017160 

X PM  (3)  =BAn-3 

00017170 

XHM ( 4 ) = RAm4 

00017180 

SLP ( 1 ) =SLTP1 

00017190 

SLP (2) =SLTP? 

00017200 

SUP (3) =SLTP3 

00017210 

SLP (4) = S L t P 4 

00017220 

rsi  ( 1 ) =FCSI  (SAMI ♦SLIPl ) 

00017230 

TST  (2) =FCRl  (SAM?,SLIP2) 

00017240 

CSI (3) =FCSI (SAM3»SLIP3) 

00017250 

CSI (4) =FCSI (SAM49SLIP4) 

00017260 

F 1 =CST ( 1 ) 

00017270 

F2=CSI (?) 

00017280 

F 3 = CS I (3) 

00017290 

F4=CS I (4) 

00017300 

GO  TO  116 

00017310 

F 1 = 1 . 0 

00017320 

F2= 1 .0 

00017330 

F3=l  .0 

00017340 

F 4=  1 .0 

00017350 

TFMP=SORT ( (CST ( 1 ) *SL I P 1 ) **2+RAMl #*?) 

00017360 

TF(TFMP.MP.0.0)F1=ABS(RAM1 ) /TEMP 

00017370 

TEMP=SORT ( (CSI (?) *SLIP?) *»2*BAM2»*2) 

00017380 

IF  (TEMP.NF.0.0)F2=ARS(RAM2) /TFMP 

00017390 

TFMP=SQRT ( (CSI (3) *SLIP3) **2*BAM3**?) 

00017400 

!F(TFMP.Mf.O.O)F3=ARS(RAM3)/TFMP 

00017410 

TEMPrSORT  ((CSI(4)*SLIP4HH»2  + RAM4»*2) 

00017420 

IF (TFMP.NF.0.0 ) F4=ARS (RAM4) /TEMP 

00017430 

TF( ( SLIPl. LF.O.) .OR. (SLIPl. GE. PAR AM (180) )) GO 

TO 

110 

00017440 

IF (SLIPl, 1 T.(PARAM(1RO)/?,))GO  TO  111 

00017450 

F1=F] * (2.* (PARAM< 180) -SLIPl ) * ( P A R AM ( 1 8 1 ) - 1 . ) ) /PAR AM ( 1 80 ) *F 1 

00017460 

GO  TO  110 

00017470 

F1=F1* (?.« SlIPl « (PAR AM (l8l)-l.))/PARAM(18P)*Fl 

00017480 

IF ( (SLTP2.LF.0. ) .OR. (SLIP2.GE.PARAM ( 180 ) ) ) GO 

TO 

112 

00017490 

IF (SLIP2.lT, (PARAM(lRO)/?.) )GO  TO  113 

00017500 

F?=F2* (2,* (PAR AM ( 1 80 ) -SL I P2 > * ( PARAM ( 18 1 ) -1 . ) ) /PARAM ( 1 80 ) *F2 

00017510 

GO  TO  112 

00017520 

F?=F2* (2.#S| IP2#(PARAM(l8l)-l.))/PAPAM(lflO)+F2 

00017530 

TF((SLIP3.LF.O.),OR.(SLIP3.GE.PARAM(180)))GO 

TO 

114 

00017540 

TF (SLIPS. 1 T. (PARAM ( 180) /2. ) )G0  TO  115 

00017550 

F3=F3*(2.*(PARAM ( 180) -SLIP3) * (PARAM ( 181 ) -1 . ) ) /PAR AM ( 180) *F3 

00017560 

GO  TO  114 

00017570 
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1 ] S F3=F3*(?.*SLIP3*(PARAM(l0l)-l.) )/PARAMU80)+F3' 

114  TF ( r SLIB4 .LF. 0 . ) .OR. (SLIP4.GF .PAPAM ( 180 ) )) GO  TO  life 
TF (FLIP4.I  T. (PARAM(IRO) /?. ) )GO  TO  117 

F4  = F4<*(?.«(PARAM(1R0)-SLIP4)*(PARAM(181  )-l  .)  )/PARAM(180)+F4 
GO  TO  life 

1 ] 7 F4  = r4<M2.*Sl  IP4*(PARAM(1r1)-1,  ) )/PARAM(180)*F4 
life  CGMTINUF 

F X U 1 =FR 1 * ( TmE-U1P^COSP51-F1*AMU1*5INPS1*GR1 ) 

FXII?  = FP2*  ( ThF-U2P*COSPS?-F?*AMU?*SINPS2*GR2) 

FXU3=FR3*  ( THF-inPH>COSPS3-F3*AMU3*SlNPS3*GR3) 

F X I J 4 = F R 4 * ( ThF-U4P*C0SPS4-F4*AMU4*SINPS4*GR4) 

R1=-PHI-U1  P*SINPS1  + F1  *AM||1#COSPS1wgr1 
G?=-PHI-UpP»SINPSP+F?4AMU?*C0SPS?*GP2 
G3=-PHI-UgP«STNPS3*F3*AMU3*COSPS3*GB3 
G4  = -PHI-ll4P*SINPS4'fF4#AMll4*C0SPS4*GR4 
FYIJ1  =FR1  *r,  1 
F YU?=FR2*P? 

FYU3=FR3*G3 

FYU4  = FR4*r-4 

FC  1 =FR 1 *U 1 P 

FC?=FR2*UpP 

FC3=FR3*U3P 

FC4=FH4*IJ4P 

FCl"AX=FRl*AMllttSIl 

F C:»MAX  = F'.R:>*AM12#SI2 

FC3MAX=FRR*AM13*5I3 

FC4MAX=FPa*AM14*SI4 

SFXlIsFXUl  + FXUP  + FXU3  + FXU4 

SFYU=FYU1 +FYU2+FYU3+FYU4 

r ZJUMK1s(ZpO-(ZH-Z1PP)  1/Al.F 

C 7JUMK2= (7p0- (ZH-72PP) ) /ALF 

7JIJMK1  =0.0 
7 JUNK  2 =0.0 

SNIPS  I U= A#  (FYU1+FYU2)  - R*  ( FYU3  + FYU4  ) +TF02*  ( FXU2-FXU 1 ) 

1 +TRO?o  (FXIJ4-FXU3) 

IF  (TAX. E 0.2) GO  TO  4287 

SNTHFU  = A*  f Si P + S2P) -R4 (S3P  + S4P) -FXU1*Z1PP-FXU2*Z2PP 
1 -FXU3*73PP-FXU4*Z4PP 

] -A* (FXU1*ZJUNK1+FXU2*ZJUNK2) -B*T4NP*  (FXU3*FXU4) 

SNPMjU=TFn2« (S2P-S1P) + TSn2» ( S4P-S3P ) ♦FYU1*(Z1PP*HFC) 

1 *FvU2«  (ZPPPt-HFC)  ♦ TLF*0 . 5* ( FXU 1 *Z JUNK  1 -FXU2*Z JUNK2 ) 

1 -TpO?#TANP* (FXU3-FXU4) - (FYU3+FYU4) * <CRRC*DEL3+HRC+7R) 

GO  TO  4?Ro 

4 2fi  7 SNTHEU=A* (Si P + S?P) -P  * (S3P  + S4P) -FXU1*Z1PP-FXU2*Z?PP 
] -FxU3*Z3PP-FXIJ4*Z4PP 

0 ] -FyU3*Z3PP-FXU4*Z4PP-A* (FXU1*ZJUNK1 ♦FXU2*ZJUNK2) 

1 -RwTANP*(FXU3*FXU4)*B*((FXU3*CPSR3+FYU3*SPSR3)*  (ZR-Z3PP) 

1 + (FXU4*CPSR4*FYU4*SPSR4)  * ( ZR-Z4DP > ) /TS02 

SNPmIU*TFo?*(S2P-S1P)  ♦ TR02*(S4P-S3P)*FYU1*(Z1PP+-HFC> 

] + F YU2*  (Z2PP+HFC)  >FYU3*  ( Z3PP+HPC  ) + FYU4* ( Z4PP  + HRC ) 

0 1 +FvU?*(Z2PP+HFC) ♦ TLF*0 . 5* (FXUl *Z JUMK 1 -FXU2*Z JUNK2 ) 

0 ] -TC0?#TANP*(FXU3-FXU4) ♦FYU3#(Z3PP*HRC> ♦FYU4*(Z4PP*HRC> 

0 1 -Tp* ( (FXU3*CPSR3+FYU3*SPSR3) * (ZR-73PP) 

0 1 - (FXU4*CPSP4+FYU4*SPSR4) * ( ZR-Z4PP) ) /TS 

42RR  CONTINUF 

FSl=FPl*Fl *AMU1*GR1 
FS2=FR2*F2*AMU2*GR2 
FS3  = FR3*F-?*AMU3*GR3 
FS4=FP4*F4*AMU4*GR4 
GO  TO  ( 10K0, 1000,3000)  ♦ ISW 


0 0,0  1758  0 
00017590 
0001 7fe00 
000 1 7fel 0 
00017620 
00017630 
00017640 
00017650 
00017660 
00017670 
00017680 
00017690 
0001 7700 
00017710 
00017720 
00017730 
0001 7740 
00017750 
00017760 
00017770 
00017780 
00017790 
00017800 
00017810 
00017820 
00017830 
00017840 
00017850 
00017860 
00017870 
00017800 


00017890 

00017900 

00017910 

00017920 

00017930 

00017940 

00017950 

00017960 

00017970 

00017980 

00017990 

00018000 

00018010 

00018020 

00010030 

00018040 

00018050 

00018060 

00018070 

00018080 

00018090 

00018100 

00018110 

00018120 

00018130 
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10  0 0 

CONTINUE 

00018140 

O0T= ( SFXU/Sm-SNTHF U/GAM2) *ONEOA 

00018150 

UOT=V*R-W*Q-G*  f HF-  ( A2*SFXU/SM-Al*SNTHFU/GAM?)  *ONFOA 

00018160 

WDT  = U<>U-V^P-(S1P  + S2P  + S3P  + S4P)  / AMS 

00018170 

wr)T  = Wl)TMPXll3*KXH4)*TANP/AMS 

00018180 

TMP  = woP-lH>P  + G«PHI 

00018190 

m = SM»TMP  + SFYIJ 

00018200 

n2=-GAM3*TMp4SNPHIU 

00018210 

n?  = GAMl-»TMp+SNPSIU 

00018220 

VDT= (01 *F1 +0?*GVl+D3*GV2) *ONFOO 

00018230 

PDT=  (-D1*p?+D2*GP1+D3*GP?)  *ONF.On 

00018240 

pr)T=  (01  *FT  *02*69 1 *03*GR2)  *ONF()0 

00018250 

PHIOT*P*R*ThF 

00018260 

THFOT=Q-R*Pm I 

00018270 

L IPSW  = 0 

00018280 

IF  (PAWAM(  l 7M  .EQ.2.  ) GO  TO  101 

00018290 

TF( (PARAM(176) .FO.O.) .ANO. ( T I ME . GF . PAR AM ( 1 77 ) ) ) GO  TO  101 

00018300 

TF  ( (PAPAM  ( 1 7f>)  .FQ.  1 . ) .ANO.  (PRSW.GT.O.  ) ) GO  TO  101 

00018310 

L I pSW=  l 

00018320 

PSI0T=0. 

00018330 

YOT  = 0 a 

00018340 

00  TO  102 

00018350 

C 101 

PSTDTsR 

00018360 

1 0 1 

PSTOT=R  ♦ Q»PHI 

00018360 

XDT  = U*CZ-\/*SN 

00018370 

YDT=U*SN+ V*CZ 

00018380 

1 02 

CONTINUE 

00018390 

IF(PARAM(i93) .NF.0.0) DFLSWC=0. 01 745329* (PAR AM < 194) *Y*PARAM ( 195) * 

00018400 

1 YOT) 

00018410 

ZDT=W-U*TwF+V*PHI 

00018420 

OOT  = CV  1 *Pu  Sw 

00018430 

ANUMDT= (Frl ♦PC? +FC 3 ♦FC4) 

00018440 

AOFNDTs (FclMAX*FC2MAX*FC3MAX*FC4MAX) 

00018450 

ISWPQ=PARaM(127) *0.5 

00018460 

1 SWPQ= I SWpQ* 1 

00018470 

GO  TO  (7001*7002*7003*7004) .ISWPQ 

00018480 

GO  TO  7001 

00018490 

700? 

POT  = 0.0 

00018500 

GO  TO  7001 

00018510 

7001 

ODT=0 . 0 

00018520 

GO  TO  7001 

00018530 

7004 

POT  = 0.0 

00018540 

Q0T  = 0 . 0 

00018550 

700  1 

CONTINUE 

00018560 

GO  TO  (1100,1200) ,ISW 

00018570 

C 

STOP  999 
WRITE ( ITTv,99) 

00018580 

90 

FORMAT ( * 0 * ♦ » STOP  999  • ) 
RFAO (KFYRO* 1 1000 ) LL 

1 ] 000 

FORMAT  (ID 

1 100 

U = lJO  + UOT*nT 

00018590 

V=VO*VDT*oT 

00018600 

w = WO*  w()T  *pT 

00018610 

p=PO+POT*nT 

00018620 

0=(J0  + 0DT*nT 

00018630 

00=0D0*DDT*0T 

00018640 

P=RO*ROT*nT 

00018650 

X=XO*XOT*nT 

00018660 

Y=YO* YOT*nT 

00018670 

Z=ZO*ZDT*nT 

00018680 
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PHI=PMIO+PHTDT*nT 

THE  = T HEO ♦ T HFDT^OT 

TF(LIPSW.rO.l)PSI0=-ATAN(V/U) 

pst=pstp«-dstdt*pt 

ANMm=4nuM0+ ANUMDT^nT 

flOEMsAOENJn  + flnFNnT^nT 

ljnTO  = UDT 

VDTO=\/r)T 

wDTO=wOT 

ppto=ppt 

0|)T0  = 00T 

pnm=pnT 

phipto=phtpt 

nnTo=i.)PT 

THFPTOsTHFDT 

PSTPTO=PStPT 

x p t n = x o t 

YPTO= ypT 
7pto=zpt 
AMUMDO  = ANl  'MOT 
A D F M D O = A D F N 0 T 
I SW  = 2 
PO  TO  ]00 
]?00  TLT=0.5*DT 

V = vn*TLT«  ( VnT-f  VDTO) 

W*WP*TLT# (WOT+WDTO) 
p=pp*TlT*  (PnT  + PnTO) 

0 = 00+  TL  T* (QDT+QPTO) 
p = pn+  fl.  T*  (R0T*RI)T0) 

X = XO  + TLT*  (XDT  + Xivro) 

Y=YO*TLT»{ YnT+YPTP) 

7 = Z 0 ♦ T L T # f Z0T  + 70T0) 
pn  = DDO*  TLT* (PDT  + PPTO) 
PHI=PHIO+TLT* (PHIPT+PHIPTO) 

THF  = TH'EO  + tLT*  ( THFDT  + THFDTO) 
PSI=PSTO+TL  Ttt  (PFIPT ♦PSTDTO) 

IJ=|  in-f  TL T*  (UDT  + UOTO) 

ANUM  = ANUMn*T|_T*  ( ANUMPT*  AMUMDO  ) 

ADFN  = AOENO-*-TLT<» ( ADENPT+ ADENUO) 

PHIOUT  = PHT+  T|_T»PHIDT 

THFOUTsTHP*TLT*THEDT 

POUT=P*PPT*TL T 

OnUT  = Q + QDT*TL  T 

ROUTsP+RPT*TLT 

I.IO(IT  = U*UDT*Tl.T 

VOUT  = V*VDT*TI_T 

wout=w*wpt»tlt 

?0UT=Z*ZDT*TLT 
XOI)T  = X + XPT*TLT 

yout=y«-ydt*tlt 

POUT  = [)n*T|_T*POT 
PPTDUT=O.S* ( 3 • 0«PDT-PDTP ) 
OPTPUT=0.^* (3.0*ODr-OOTO) 
RDTOUT=0.c* (3.0ORDT-RDT0) 
PSTOUT  = PST«-T|_T*PSIPT 
UDTOUT=0.8*  (3.0#UPT-UDT0) 
VPT0UT=.5* (3.*VPT-VDT0) 
WPTOUT=0.^*(3.O*WDT-WDTO) 

ANOUT  = ANIJm* TLT*ANUMDT 
APOUTsAPEM*TLTttADENDT 


0001 8690 
00018700 
00018710 
00018720 
00018730 
00018740 
00018750 
00018760 
00018770 
00018780 
00018790 
00018800 
00018A10 
00018820 
00018830 
00018840 
00018850 
00018860 
00018870 
00018880 
00018890 
00018900 
00018910 
00018920 
00018930 
00018940 
00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
00019010 
00019020 
00019030 
00019040 
00019050 
00019060 
00019070 
00019080 
00019090 
00019100 
00019110 
00019120 
00019130 
00019140 
00019150 
00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
00019240 
00019250 
00019260 
00019270 
00019280 


87 


po  = p 

0 0 0 1.9290 

00  = 0 

00019300 

nno=nr» 

00019310 

RO  = P 

00019320 

U0  = I 1 

00019330 

VO  = v 

00019340 

W 0 = w 

00019350 

xo=x 

00019360 

V0  = V 

00019370 

20-7 

00019380 

PHI 0=PM I 

00019390 

THF  0= THfc 

00019400 

PSTO=PSI 

00019410 

ANtlMO=ANUK 

00019420 

Ar)FNO  = ADF  m 

00019430 

P = P01JT 

00019440 

O=O0UT 

00019450 

R=POUT 

00019460 

on=onuT 

00019470 

U=U0UT 

00019480 

V= VOUT 

00019490 

w = wniiT 

00019500 

X=X0UT 

00019510 

y=yout 

00019520 

7 = 7 OUT 

00019530 

PH  I =PH I OUT 

00019540 

thf=thfout 

00019550 

PST  = PSIOUT 

00019560 

ANIJMs  ANOUT 

00019570 

AOFM=AOOUT 

00019580 

I S W = 3 

00019590 

GO  TO  100 

00019600 

3000  P=PO 

00019610 

0 = 00 

00019620 

R = RO 

00019630 

U = IJO 

00019640 

V = VO 

00019650 

W = WO 

00019660 

X = X 0 

00019670 

Y = Y 0 

00019680 

7 = 70 

00019690 

PHI=PHIQ 

00019700 

nn=nDo 

00019710 

THF=THFO 

00019720 

psi=psio 

00019730 

THS1=P0LY  (nFLl  ♦THFFNT)  ♦ THFl 

00019740 

THS?=POLY (DFL?»THFFNT) *THE2 

00019750 

PHS1=YHS1 ♦PHI  1 

00019760 

PHS?=YHS?+PHI? 

00019770 

IF (PAR AM ( I 93) .NF.O.O) OFLSrtC  = 0. 01 745329* (PAR AM ( 194) *YOUT ♦PARAM ( 195)  00019780 

1 *YDT ) 

00019790 

CALI  PTBAK  (PFTA1  ,FR1  ♦ AK-K1  »PTR1  ) 

00019800 

CALL  PTBAk (BETA2* FR2* AKK2»PTR?) 

00019810 

IF ( PARAM ( *0 ) .NE . 0 . 0 ) GO  TO  4334 

00019820 

ptri=ptrr 

00019830 

PTR2=PTRR 

00019840 

A K K 1 = 1 .0 

00019850 

AKK?= 1 .0 

00019860 

4334  CONTINUE 

00019870 

AMT1=FXUHMPTB1*STNPS1-YSA1*C0SPS1-Z1*  (PHI  1*C0SPS1-PHS1  ) ) 

00019880 
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C C U L 


] ♦FYUl*(-eTOl*AKKl*CnSPSl-YSAl*SlNPSl-Zl*(PHll*SINPSl-THSl) ) 
1 -FP1*(-dTR1*<PhS1*-COSPS1«-THS1»STNPS1)*YSA1*(THS1*COSPS1- 

] pH5 1 *S  I NPS 1 ) -Z1 * (Pw 51 *PHI 1 *SINPS1-TmS1*PHI 1*C0SPS1  ) ) 

AMTPrF  XU?ft (PTR2*SINPS2-YSA2«C0SPS2-Z2* ( PH I 2*C0SPS2-PHS2 ) ) 

1 *F  YU2«  (-PTB2*AKK2*CDSPS2-YSA2*SINPS2-Z2* (PHI2*SINPS2-THS2) ) 
1 -F92«U-pTR2<UPHS2*C0SPS2*THS2»SINPS2>*YSA2*(THS2*C0SPS2- 

1 PHSP*SINPS2)  -Z2*(PHS2*PHI2*SINPS2-THS2*PHI2*C0SPS2)  ) 

A^Tl  = SW-iT*AMTl 
amt?  = SWr.'T*AMT2 

NNMsPARAM  ( 1 QH  ) / (PAR AM  ( 75)  *UOUT  ) + 0 .5 
XI  (1  ) =XOUt-*-  a*CZ-TF02*SM 
XT(?)=X0UT*A»CZ+TFO2»SN 
XI ( 3) =X0UT-R*CZ-TP02*Sm 
X I ( A ) =X0UT-P*CZ  + TR02»SN 
NRmp=paRam(277)  ♦0.5 
DO  «4R8  1=1.4 

IlFL  X ( I ) = GF  TDEL  (XI,I.PARAM(200)  .NRMP) 

R49M  CONTINUE 

FTAX  = (UDToM'T-VOUT*RQUT*WOUT*QOUT)  /38ft. 4 
FT AL= (VOTnUT*ROUT*UOUT-WOUT*POUT) /38ft. 4 
A A * = A K 1 

TF ( FT  A X . GT • (-0.5) ) A AK= AK? 

fxli=amli*rpim*appsi*appsi*wcthi 

FXL2= AWL2*RPI^*ARPS2*APPS2»WCTH2 
F/I.1  = AHL1#MPIM*ARPS1*ARPS1*WSTH1 
F7L2=AML2»RRIH*ARPS2*APPS?#WSTH2 
r ana  py-PASS  DISPLAY  DAC’S  *#* 

C I O' IT  (01  ) =POUT*57  3 0.0«-SIGN  (0.5. POUT) 

C I OUT (0?) =o0uT»5730.0*SIGN ( 0.5* ROUT) 

TOUT (03) =pHIOUT#5730 0.0 ♦SIGN (0.5. PH  I OUT) 

TOUT  (04)  =THFOUT«57300.0*SIGN(0.5.THFOUT) 

I OUT ( 05) =pSTOUT*?730.0*SIGN ( 0.5. PS  I OUT) 

IOIJT(06)=fTaX*10  00.0*SIGN(0.5»ETAX) 

C I OUT (07)=fTaL*10000.0  + SIGN(0.5*FTAL) 

C TOUT  (()8)=nELSWC*U4ft.04SIGN(0.5*DELSWC) 

TFMP=aMT1 /A  IF  W-RDTOUT 

TFMP=  TFMP  + (-FXL1*(YSa1*RWP/2.0))/AIFW 
r TOUT (P ) =TfMp*SFOUT (9) +SIGN ( 0 .5*  TEMP) 

I OUT ( 0 1 ) =-  TEMP»SFOUT (9) 

TFMP  = P7F-.70UT-A*THE0UT*TF02*PHI0UT 
TEmP  = TFMP-DEL  x ( 1 ) 

C TOUT ( 1 0 ) =TEMP*SFOUT ( 1 0 ) ♦SIGN ( 0.5. TEMP) 

I OUT (02)=tFmP*SFOUT (10) 

TEHP  = AHT2/A  TF W-RDTOUT 

TEMP=TEMP* (-FXL2* (YSA2+RWR/2.0) ) /AIFW 
C I OUT (11) sTFMP*SFOUT (9) ♦ S I GN ( 0 . 5 ♦ TFMP ) 

TOUT (03)=-  TEHP*SFOUT (9) 

TEHP=PZF*70UT-A«THE0UT-TF02*PHlOUT 
TEMP=TFMP-DFLX (2) 

C TOUT (12)=TEMP*SF0UT (10) +S IGN (0.5.TEMP) 

TOUT ( 04 ) *TEMP*SFOUT ( 10) 

C TFMP=- ( AM?l-AMl 1 )*0.05 

TFMP  = ( AM? 1 -AMI  1 ) #0.05 

C I OUT ( 13)=TEMP*10000.0*SIGN(0»5.TFMP) 

TOUT ( 05) =TF  mP 
TM1=TF02*pDT0UT 
TM2  = A*QDT  nUT 
TM3=C IP 

FPZ1=-FXUI*ZJUNK1 
FPZ2=-FXU?*7 JUNK2 


00019890 

00019900 

00019910 

00019920 

00019930 

00019940 

00019950 

00019960 

00019970 

00019980 

00019990 

00020000 

00020010 

00020020 

00020030 

00020040 

00020050 

00020060 

00020070 

00020200 

00020080 

00020090 

00020100 

00020110 

00020120 

00020130 

00020140 

00020150 

00020160 

00020170 

00020180 

00020190 

00020210 

00020220 

00020230 

00020240 

00020250 

0002025 

00020260 

00020270 

00020280 

00020280 

00020290 

00020300 

00020310 

0020310 

00020320 

00020330 

00020340 

00020340 

00020350 

00020350 

00020360 

00020360 

00020370 

00020380 

00020390 

00020400 

00020410 
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^ n n n o 


c 

r 

r 

r 

r 

r 

c 

c 


c 

r 

r 


c 


r 


c 


c 

c 

c 


c 

c 

c 


c 


c 


# « » 


Tf-  mp  = -Tm1  + TM2  + Tm3  + ?.0<*'FRZ1/AMUF 
TFmd=_TM1 +Tm?+ TM3-FYU1 *SPSR3 
TFMP=  TEmp+2. 0*FZL 1 /AMUF 
TEmd=tfmP+2.0*FZL?/AMUF 

TOUT ( 1 4 ) =TFmP*SFOUT ( 1 4) ♦SIGN ( 0.5. TEMP ) 
TOUT ( 0 ft  ) = T E M P * S F 0 U T (14) 
TFmp=-(amp?-am1?)#0.05 
TEmp=  ( AM?2-AMl2) *0.05 

TOUT ( 15)  = TFMP*1 OOOO . O + StGN (0 .5*  TFMP ) 
TOUT ( 0 7) = T F M P 

TEMP=  TM1 + TM2+TM3+2. 0*FRZ2/AMUF 
TFmd=  Tmi +Tm2+TM3+FYU?*SPSR3 
TOUT (1  ft ) =tFmP*SFOUT ( 1 4) +SIGN ( 0.5, TFMP) 
TOUT ( Ort ) =tFmp*SFOUT (14) 

PY-DASS  OtSPLAY  OAC'S  HUU 

TOUT  (17)  =nOUT*5.ft81P+SIGN(0.5,UOUT) 

TOUT  ( 1 8 ) = \/OuT*50  . O + STGN  ( 0.5*  VOUT) 

TOUT ( 19) =yOUT*4. lftft+SIGN (0.5. YOUT ) 

TOUT (20) =-XOUT*n.B333+S!GN(0.5*-XOUT) 
TOUT (21 ) s-ToFRR# 0.25* SIGN (0.5.TQFPR) 
TOUT (09) = -TfJFRR*0.25*SF0UT  ( 14) 

TOUT (22) =_ToRhR*0.25+STGN (0.5.TQRRR) 
TOUT ( 10) =-ToRPR*0.25*SF0UT (14) 

IOUT (23) =nFLSWC/10.0*T+SlGN (0.5.DELSWC) 
TOUT  (11)  =r>FLSWC/ 1 0.0 


00020420 

00020430 

00020480 

00020440 

00020440 

00020450 

00020450 

00020460 

00020460 

00020470 

00020490 

00020490 

00020500 

00020510 

00020520 

00020530 

00020540 

00020540 

00020550 

0020550 

00020560 

00020560 


TOUT ( 12)  = 0 

TFMP= (-TRp2+Z3*PHIOUT)  00020570 

TOUT  (25)  =TEMP*SFOUT  (25)  ♦ S I GN ( 0 . 5 , TEMP ) 0 0 020580 

TOUT ( 13) =tFmP*SFOUT (25)  00020580 

TEMP=CI VP-B*QOTOUT  00020590 

TFMPsTFMP* (FXU3+FXU4) *T ANP/AMUR  00020600 

TOUT (26) =TFMP*SFOUT ( 14) ♦SIGN (0.5*  TEMP)  00020610 

I OUT (14)=  TFMP#SFOUT ( 14)  00020610 

TEMP= (TR0p+74*PHI0UT)  00020620 

I OUT (27) =TEMP*SFOUT (27) ♦SIGN (0.5* TEMP)  00020630 

I OUT (15)=TEMP*SF0UT (27)  00020630 

TFMPs-PDTnUT- (FYU3* ( -TR02*PH 1 0UT-Z3 ) -FYU4* ( TR02*PH I 0UT-Z4 ) ) /AIR  00020640 
TFMP=TEMP- ( (FYU3+FYU4) * (CRRC*DEL3+HRC) +TS02* (FXU3-FXU4) *TANP) /AIR  00020650 
I OUT (?8) =tFmP*SFOUT (28) +SIGN ( 0.5* TEMP)  00020660 

TOUT  ( 1 6)  =TEmP#SFOIJT  (28)  00020660 

TEMP=- (AMP3-AM13) *0. 05  00020670 

TFMPr  (AMP3-AM13) *0.05  00020670 

TOUT (29) =TEMP*1 000 0.0+ SIGN (0.5* TFMP)  00020680 

IOUT ( 17) =TEMP  00020680 

TEMP= (RZR+Z0UT+p*THF0UT*PHI0UT*TR02)  00020690 

TEMP=TFMP-DELX (3)  00020700 

IOUT (30) =TFMP*SFOUT ( 1 0) ♦SIGN (0.5* TEMP)  00020710 

IOUT(18)=TEMP*SFOUT(10)  00020710 

TEMP=- ( AMP4-AM14 ) *0 . 05  00020720 

TEMP=  (AMP4-AM14) *0.05  00020720 

IOUT (31 ) =TEMP*1 0000. 0+SIGN (0.5* TEMP)  00020730 

IOUT ( 19) =tFMP  0002073 

TEMp= (RZR+Z0UT+P*THF0UT-PHI0UT*TP02)  00020740 

TEMPsTEMP-DFLX (4)  00020750 

IOUT ( 32) =TFMP*SFOUT ( 1 0 ) ♦SIGN (0.5*  TEMP)  00020760 

TOUT (20 ) =TFMP*SFOUT (10)  00020760 

TEMP=U01*n.05  00020770 

IOUT  (33) =TEMP*1  0000. 0 + SIGN (0.5* TEMP)  0 0 020780 

IOUT (21 ) sTFMP  00020780 

TEMP=U02* A . 05  00020790 
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I OUT  ( 34)  =TEn'P»100  00.0*SIGN(0.S*TFMP) 

TOUT (22) =tFmP 
TFMP=am  1 1 *0 . 05 

TOUT (35 ) =TFmp#1  0000 . 0 + STGN  <0.5 tTE«P) 

TOUT  (,33) =TFMP 
TEm°  = AM1  ?*0 . os 

TOUT (36) =TEmP*1 0000. O+SIGN (0.5 »TFMP) 

TOUT (29) =TFmP 

TOUT  ( 37)  =liG)  P*SFOUT  (37)  ♦SIGN  (0.5.UG1P) 

TOUT (25)  = llGlP*SFOUT  (37) 

I OUT (3«)=HG?P*SF0UT(37) ♦SIGN(0.5*UG?P) 

TOUT ( 35 ) =nG?P*SF0UT ( 37 ) 

I OUT  ( 39)  = llG3P*SFOUT  (37)  ♦ SIGN  ( 0.5*UG3P) 

TOUT  (27)  = llG3P*SFOUT  (37) 

T OUT  (40)=uG4P*SFOUT  ( 37  ) *S  I GN  ( 0 . 5 , UG4P ) 

TOUT (^4)=nG4P*SPOUT (37) 

TFMP=U03*n . 05 

TOUT  (41 ) =TFMP *10000. 0+SIGN ( 0 ,5*TFMP) 

TOUT ( PH ) =TFMP 
TFMP=U04»n , 05 

TOUT (4?) =TFMP* 100 00.0* SIGN (0.5 «TFMP) 

TOUT ( TO ) =tEmP 
TEMP=aM13*0.05 

TOUT (43) =TEmP* 1000 0.0 ♦SIGN  <0.5 »TFMP) 

TOUT (31) =TFMP 
TF"MP  = AM14*0 . 05 

I OUT (44) =TFMP* 10 00 0.0 ♦SIGN (0.5 .TEMP) 

TOUT (3?) =TFmP 
TEMP=SI 1 
temp  = -s I 1 

TOUT(45)=TFMP*10000.0+SIGN(0.5*TFMP) 

IOUT (33) =TFMP 
TFmp  = S 1 2 
TFMP  = -S I 2 

IOUT (45) =TF mP*1 0000. O+SIGN (0.5* TFMP) 

IOUT ( 34 ) = T E M P 
TEMPsST3 
TEMP  = -S I 3 

TOUT  (47  ) = TEMP«-1  0000. 0 + SIGN  ( 0 .5*  TEMP) 

TOUT (35) = T F M P 
TF.MPsSI  4 
TFMP=-SI4 

IOUT (48) =TFmP* 100 00.0 ♦SIGN (0.5 ♦ TEMP) 

IOUT ( 36) =TEMP 
IOUT (37) =0 

TF(IAX.EQ.1)G0  TO  7719 

TEMP=G* ( 1 . 0*A* AMS/ (AMUR* ( A +B ) ) ) -R*QDT0UT-TR02*PDT0UT* 

1 2.0* (FXU3*CPSR3+FYU3*SPSR3> * (ZR-Z3PP) / (AMUR*TS) 

TEMP  =G*  ( 1 .♦ALAN'S  / (AMUR*  ( A + R ) ) ) -0  *00  TOUT -TR02*PD  TOUT 
1 -rYU3*SPSR4 

TEMP  = G* ( ) • ♦ A*AMS/ (AMUR* ( A ♦ B ) ) ) -B*Q0T0UT-TR02*PDT0UT 
1 -rYU3*SPSR4 

IOUT(?4)=TEmP+SIGN(0.5»TEMP) 

TOUT ( 1?)=TFmP*SFOUT (14) 

TEMPsG* ( 1 . 0 ♦ A * AMS/ ( AMUR* ( A ♦ B ) ) ) -P *QO TOUT ♦ TR02*PD TOUT ♦ 

1 2.0* (FVU4*CPSR4+FYU4*SPSR4) * (ZR-Z4PP) / ( AMUR*TS ) 

TEMP  =G*U .♦A*AMS/(AMUR*(A*0) ) ) -R*QDT0UT*TR02*PDT0UT 
1 ♦FYU4*SPSR4 

TEMP  =G* (1 . ♦ A*AMS/ ( AMUR* ( A ♦B ) ) ) -B*00 TOUT ♦TR02*PD TOUT 
1 ♦rYU4*SPSR4 


0 0 0 2‘0  8 0 0 
00020800 
00020810 
00020820 
00020820 
00020830 
00020840 
00020840 
00020850 
00020850 
00020860 
00020860 
00020870 
00020870 
00020880 
00020880 
00020890 
00020R00 
00020900 
00020910 
00020920 
0 9 

00020930 
00020940 
00020940 
00020950 
00020960 
00020960 
00020970 
0002097 
00020980 
00020980 
00020990 
00020990 
00021000 
00021000 
00021010 
0002101 
00021020 
00021020 
00021030 
0002103 
00021040 
00021040 

00021050 

00021060 

00021070 


00021080 

0002108 

00021090 

00021100 
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c 

IOUT (2H) =TEMP* SIGN (0.5 .TEMP) 

00021110 

IOUT ( 37) =TEMP*SFOUT ( 14) 

00021110 

c 

TOUT  (25)  =r> 

00021120 

TOUT ( 1 3 ) = n 

00021120 

c 

IOUT (27) =0 

00021130 

c 

TOUT  (.15)  =n 
TOUT ( 16) =o 

00021130 

7 719 

CONTINUE 

00021140 

IF  (UOUT.GF.  25. 0*5280.<*1  2. 0/360  0.0)  TIME25  = TIme 

00021150 

IF  (UOIIT.Gf.  1 0. 0 *5280.  *12. 0/3600. 0)Tl  ME  1 0 = T I ME 

00021160 

TF (UOUT.GF. 5. 0*5280. 0*1 2, 0/360 0.0  ) T I ME5=T I ME 

00021170 

TFMPE=APS < Roll  1*57.295  78) 

00021180 

TF (TEMPE.cT.RMAX) PMAX=TFMPE 

00021190 

T E M P E = AHS ( FT  AL ) 

00021200 

IF (TFMPE.cT.FTAMAX) ET AM AX= TEMPE 

00021210 

TFMPF=AHS ( Pm I0UT*57. 29578) 

00021220 

IF (TEmPE.^T.PHImaX) PH  I M A X = TEMPE 

00021230 

TEMPE = APS (DFLSWC*57. 29578) 

00021240 

I F ( TEMPE .pT.DSWMAX ) DSWMAX=TEMPE 

00021250 

IF ( TIME.LF. 5.0) PSI5=PS TOUT *57. 29578 

00021260 

INTFG=PARAM ( 128) *0.5 

00021270 

itemp=intfg*i 

00021280 

HT V=VOUT/UOUT 

00021290 

RT\/DT=  (UOilT*VDTOUT-V()UT*UDTOUT)  / (UOUT*UOUT) 

00021300 

ONFR= (ROUT+hTVDT) /SORT < U0UT**2->  V0UT**2 ) 

00021310 

C 

ONFR=ONER*20 . 0 

/ 00021320 

TEMPEsARS (RTV) 

00021330 

IF ( TEMPE. CT.RTVMAX) BTVMAX=TEMPE 

00021340 

c * a ***** n* * 4*** n** ****************** 

C*«4**  aPL  DISPLAY  PROGRAM  ***** 

c *****************************  ************************ 
c *******************  JREC  s 1 i AX»AY»R*U»V*B»1/P  *** 
c,*  ********  *******  ******  ******************************* 

I RFC  =PaRaM ( 43 ) 

GO  TO ( 1 t 2,3*4) ♦ IREC 

1 CONTINUE 

TOUT ( 13) =FTaX/5. 

TOUT ( 14) =FTAL/5. 

I OUT ( 15) =OOUT 
IOUT(16)=UGUT/1200. 

I OUT ( 38 ) =VOUT/1200. 

IOUT  ( 3R) =»TV/3. 14 
IOUT(40)=nNFR*24(). 

GO  TO  6123 

2 CONTINUE 

C*M ****************  ***************************** 

C *****  SECOND  DISPLAY  GROUP  ADDED  HERE  ***** 

C *********************************  ************** 

I OUT (13)  = POUT 
TOUT (14)  = POUT 

I OUT (15)  = PH  I OUT  * 57.3  / 10. 

IOUT (16)  = THEOUT  * 57.3  / 10. 

IOUT (38)  = PSIOUT  * 57.3  / 10. 

I OUT ( 39 ) = PE/1000. 

IOUT  ( 40 ) = wOUT  / 1200. 

GO  TO  6123 

3 CONTINUE 
GO  TO  6123 

4 CONTINUE 
GO  TO  6123 
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r-,0  TO  (617*3. 61  24  *61  28  *61  26,61 27  *61  28  *61  29. 6130*6131* 6132  *6133* 
1 6134*61 3S*6l36*6l37*613R»6139*6140*6141  ) , I TEMP 

M 24  TOUT ( 07) =PF*T/ 1 000.+SIGN ( 0 . 5 * PF ) 

TOUT  (08)  = tHE()UT*100  0 0.0*57.3/10.0  + SIGN(0.5*THEOUT) 

TOUT  ( ) 7 ) = r>OUT*5  73  0 . 0 + SIGN  ( 0 .5*Q0UT  ) 

I OUT ( 18)=PNTHEU*10OOO. 0/10000. 0+STGN(0,5*SNTHEU) 

GO  TO  3791 

8128  TOUT (o7)=E 51*10000. 0/2800. 0+SIGN(0.5»FSl) 

TOUT ( OH) =cS?*l 0000 . 0/2800 .0 ♦SIGN (0 .8 »FS2) 

TOUT (1 7) =rS 3*1 000 0.0/2500. 0+SIGN (0.5*FS3) 

TOUT ( 18) =FS4* 100 00.0/2800.0+ SIGN (0.8* FS4) 

GO  TO  3791 

6 126  I OUT ( 07 ) =dF*T/1000 . 0+STGN (0.5*PF ) 

GO  TO  3791 

8127  IOIJT  (07)  =FS)  *10000. 0/2800. 0 + SIGN  (0.8»F81  ) 

TOUT  (08)  =rS2*  10.0  0 0. 0/280  0.0  + SIGN  (0.5  »FS2) 

I OUT ( 17) =rS3* 10000. 0/2500. 0 + SIGN (0.8* FS3) 

TOUT ( lfi) =ES4* 10000 .0/2500 .0+SIGN (0.5 »FS4) 

GO  TO  3791 

8 128  I OUT ( 17) =oST0UT*5  73  0.0  + SIGN (0.5* PS  I OUT) 

TOUT ( 18) = o()l IT*5730.  (>♦  SIGN  (0.5* POUT) 

GO  TO  3791 

8129  I OUT ( 07 )=PF*T/ 1000. 0+SIGN <0.8,PF) 

I OUT ( OH ) =PH TOUT*57300. 0+SIGN (0.5* PH I OUT) 

TOUT ( 17) =PSI0UT*8 730. 0+SIGN (0.5+PSIOUT) 

I OUT ( 18) =P0U T*5730. 0 + SIGN (0.5* POUT) 

3791  IOUT(01)=fTaX*10000.0/2.5+SIGN(0.5*ET4X) 

TOUT (02)=fTaL*10000.0+SIGN(0.5*ETAL) 

I OUT (03) =pOUT*1  0 0 00.0*87. 3/1  00  . +SIGN( 0.5* POUT) 
TOUT(04)=rVl*100.0+SIGN(0.5*CVl) 

TOUT ( 05) =«TV* 100 00. 0*57. 3/20. 0+SIGN (0.5* BTV) 

I OUT ( 0 8) =ONFR*10000.0  + SIGN(0.5*ONER) 
f30  TO  5123 

5130  I OUT(05)=8lP* 10000. 0/2000. 0+SIGN (0.5*S1P) 

TOUT (03) =82P*1 0000, 0/2000. 0+SIGN (0.5* S2P) 

I OUT ( 04) =83P*1  0000. 0/2000. 0 + SIGN (0.8* S3P) 

I OUT (02) =S4P* 10 000. 0/20 00, 0+SIGN (0,5* S4P) 

GO  TO  5123 

8131  TFMP=AMU1 

I OUT ( 08) =TFMP*1  0000 .0  + SlGN ( 0.5* TEMP) 

TEMP=4MU2 

I OUT (03) =TEMP* 10000. 0+SIGN (0.5* TEMP) 

TEMP=AMU3 

TOUT (04) =TEMP* 1 0000. 0+SlGN( 0.8 *TFMP) 

TF8P=aMU4 

IOIJT  (02)  =TFMP*  10  00  0. 0 + SIGN  (0.5*  TEMP ) 

GO  TO  8123 

8132  I OUT (08) =PST  1*1 0000. 0*87. 3/1 0. 0 + SIGN (0.8* PS II  ) 

I OUT ( 03 ) =PS T 2* 10000. 0*57. 3/10. 0 + SIGN ( 0.5* PSI 2) 

IOUT (04) =PST3*10000. 0*57. 3/10. 0+SIGN (0.5*PSI3) 

I OUT ( 02) =PSI4*1 000 0.0*57. 3/10. 0 + SIGN (0.5* PST4) 

GO  TO  6123 

8133  TOUT  (08)  =nEl.  1*1  0000. 0/8. 0 + SIGN  (0.5*  DELI  ) 

TOUT ( 03) =nEL2* 1000 0.0/8. 0+SIGN (0.8* DEL2) 

IOUT (04) =nFL3* 10 000. 0/5. 0+SIGN (0.5* DEL3) 

IOUT (0?)=PHIR* 10000. 0*57. 32/10. 0+SIGN ( 0.5* PHIR) 

GO  TO  8123 

8134  IOUT (8) =-0.8333*XOUT+SIGN(0.5.-XOUT) 

GO  TO  8123 

8138  IOUT (8) =1 0000.*F1  ♦ S I GN ( 0 . 5 » F 1 ) 


00021350 

00021360 

00021370 

00021380 

00021390 

00021400 

00021410 

00021420 

00021430 

00021440 

00021450 

00021480 

00021470 

00021480 

00021490 

00021500 

00021510 

00021520 

00021530 

00021540 

00021550 

00021560 

00021570 

00021580 

00021590 

00021600 

00021610 

00021620 

00021630 

00021640 

00021650 

00021660 

00021670 

00021680 

00021690 

00021700 

00021710 

00021720 

00021730 

00021740 

00021750 

00021760 

00021770 

00021780 

00021790 

00021800 

00021810 

00021820 

00021830 

00021840 

00021850 

00021860 

00021870 

00021880 

00021890 

00021900 

00021910 

00021920 

00021930 

00021940 
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I OUT (03)=1 0ri0  0.*F2  + SIGN  (0.5.F2) 

00021950 

TOUT(4)=lnOnO.*F3+SIGN(O.S.F3) 

00021960 

TOUT ( 02) =1  On  00 , *E4  + SIGN ( 0 .5 .F4 ) 

00021970 

00  TO  81?** 

00021980 

M 38 

1 01  IT  (5)  =1  nOnO.*Ul  P + S I ON  ( 0 . 5 ♦ U 1 P ) 

00021990 

TOUT ( 0 3 ) =1  0 000 . #U?P  ♦ SI ON ( 0 ,5«U?P) 

00022000 

I Oi  IT ( 0 4) =1 0O00.#U3P  ♦SIGN ( 0.5 .IJ3P) 

00022010 

TOUT (I)2)=10000.#U4P  ♦ S I GN (0.5. U4P ) 

00022020 

GO  TO  8l?T 

00022030 

M37 

I OUT (OS) si  0 0 . #OFL IDT  ♦SIGN(0.5.nELlDT) 

00022040 

TOUT  (03)  =1  0 o . W0F  L2DT  ♦ S I ON  ( 0 . 5 * DEL.20T  ) 

00022050 

TOUT  ( 04  ) =1  0o.*OF|_3OT  ♦SIGN  ( 0.5tOFL3DT) 

00022060 

TOUT (02) =4  0no0.*PHIRD  ♦ S I ON ( 0 . 5 . PH  I RO ) 

00022070 

00  TO  8120 

00022080 

8 1 3 <3 

TOUT ( S ) =1  0000.*QUAM1  ♦ S I GN ( 0 . 5 , OU AN  1 ) 

00022090 

TOUT (03) =1 0000. *QU AN?  ♦SIGN (0.5.QUAN2) 

00022100 

I OUT  (04)  si  0 0 0 0 . -&QU  AN3  ♦SIGN(0.5.QUAN3) 

00022110 

I OUT ( 0?) =1  000  0.*QUAN4  ♦SIGN  (0.5*QUAN4) 

00022120 

00  TO  8123 

00022130 

M 39 

T FMP  = W7R+  7 0 1 1 T 

00022140 

TOUT ( 30 ) =TFMP* SIGN ( 0,5. TFMP) 

00022150 

TOUT ( i?) =TEmP+ SION (0.5, TEMP) 

00022160 

GO  TO  8123 

00022170 

8140 

TOUT  ( ()S)  =r  Yll  1*10000. 0/O000.0  + SIGN(0.S#F  YU  1) 

00022180 

I 01  IT (03) =FYU2* 10000. 0/S 000.0 ♦SIGN (0.5.FYU2) 

00022190 

I OUT (04) =rYu3* 10000. 0/S 0 0 0.0  + SIGN (0.5 »FYU3) 

00022200 

TOUT (0?) =fYU4* 10000. O/SOOO.O+SIGN (0.5 »FYU4) 

00022210 

GO  TO  8123 

00022220 

8141 

Tl? 3= 1000O. 0/250000.0 

00022230 

TOUT (03) =GNTHFU*T 123+ SIGN (0.5. SNTHEU) 

00022240 

I OUT ( 05) =0FYU^1 0000 . 0/5000.0+SIGN (0.5.SFYU) 

00022250 

TOUT (04) =CNPHIU*T1?3+SIGM(0.5.SNPHIU) 

00022260 

TOUT (0?)=SNPSIU*T1?3+SIGN (0,5. SMPSIU) 

00022270 

812  3 

CONTINUE 

00022280 

TF ( INTFUN.NF.O ) GO  TO  3895 

00022290 

TSWT=0.0 

00022300 

IF (Y3.GT .^.0. 0R.Y3.LT .0.0) TSWT=1 .0 

00022310 

IF (TSwT.NF.0.0. AND.TOO.EO.0.0 ) TOO=XOUT 

00022320 

3695 

CONTINUE 

00022330 

MUM=PAPAM ( 044 ) +0 .5 

00022340 

TF (PARAM ( l 90 ) ,NE.O.O.AND.NUM/2*2.EQ.NUN)GO  TO  843? 

00022350 

YSPEC=YOUT 

00022360 

X pF  = X OUT 

00022370 

GO  TO  7521 

00022380 

843? 

TF ( XOUT.LP.XPF) YSPEC=YOUT 

00022390 

TF (X0UT.LP.XPF) XEN0=TIME+1 .0 

00022400 

7521 

CONTINUE 

00022410 

5151 

CONTINUE 

00022420 

IF ( A8S (PS TOUT) .OT.ABS(PSIM) )PSIM=PSIOUT 

00022430 

IF (TIME.Mp.O.O)GO  TO  795 

00022440 

no  6240  1=1.48 

00022450 

TTMP ( I ) sloUT ( I > 

00022460 

8?4  0 

CONTINUE 

00022470 

795 

T I MF=  T T ME  *0T 

00022480 

TENPE  = A8S  ITQRRR) 

00022490 

IF (TENPE.oT.TQRMAX) tqrmax=tempe 

00022500 

TFmpe=A8S (TOFBR) 

00022510 

IF (TEMPE.OT.TQFMAX) TOFMAX=TEMPE 

00022520 

TEMPEsO.O 

00022530 

IF (nELSWC.NF. 0.0) TEMPE  = ( ROUT* ( A + R ) * A NG«H  ANL 1 ♦ ANL2 ) ) / 

00022540 

94 


] ( 2 . 0 *UnUT*PF|  SWC ) 

T F •'  P F = ft  ft  ^ ( TFMPF ) 

TF  (TFMPF  .r.T.TMAXl  ) TMflXl=TFMPF 

TFMPF =0.0 

IF  (PFLSWC.NF.  0.0  ) TFMPF  =ROHT«ANG*  ( ANl.  1 ♦ ANL2 ) / (2.0*DELSWC) 

TFmuF=ABS ( TFMPF ) 

IF (TFMPF.^T.TMAX?) tmax?=tfmpf 

TFMPF  = 2.0*nELSWC*lJOUT<MJOUT/(G*<A4B>*ANG*(ANLl*ANL2)  ) 

TFMPF=ARS < TFMPF ) 

TF  (TFMPF.  r.T.TMAX3)  TM  AX  3 = TFMPE 
TF MPF=ftSS (PSIOUT) 

TF(TEMPE.^T.PSIMAX)PSTMAX=TFMPE 
c QP 7 FOPM AT ( • 0 • ft T IF/ ( » • ft  I 1 S ) ) 

gg7  FORMAT ( *0*  * ft  1 1 5/ ( • • * ft  T 1 5 ) ) 

MlJMPR  = MUMPR  + 1 

r IF ( IPPT.Mr . o ) PRTMT  99  7 « (TOUT (I) * T = 1 * 4ft  ) 

IFfTPPT.Mr.n)wPITE(ITTV»QP7)(I0UT(I)*I=:l*Aft) 

C L 1 *7  X • 4 0 0 0 • 

r wn . 7 x 1 1 i o? * 

RETURN 

run 


00022550 

00022560 

00022570 

00022550 

00022590 

00022600 

00022610 

00022620 

00022630 

00022640 

00022650 

00022660 

00022670 

00022670 

00022680 

00022690 

00022690 

00022700 

00022710 

00022720 

00022730 
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00023359 

00023360 

00023370 


SURROUTINf  SRPG4 
SUBROUTINE  SRPG4 
0 IMF  NS  I ON  MAMEX  < 1?4)  (289) 

P I MFNS  T ON  NAME<?09) 

COmmOm/ API  / OPEN  » P T Sw  ♦LOTS*  ♦ RRSW 
COmmOn/OF  v/ 1 CE  / KEYHD  * ITTY,  ICORD»LPTP 

COMMON /SPi  T AX/SPSW T»CPSP3«SPSP4»CP5R4,SCR3*SCR4»TRCR3»TBCR4f TBSR3 » 0 0 0 2 338 0 
1 TBSR4»TPSR3»TRSR4*TPCR3*TRCR4»PSR3»PSR4*IAX  00023390 

COMMON/AFiil/AFl]  *AF1?»  AFJ  3tGAMC)  000234  00 

COMMON/ AFOO/  AFO  1 ♦AE02»AF039AF04.AF05'»AF06,GAMCO  00023410 

C0mm0n/PToK/aP1.ap?»AP3»aP4»aPS»RTC1«RTC?  00023420 

COmmOn/F  FcS/FFF 1 ♦ FFF? ♦ THE  1 »THE2  00023430 

common /PR  TO  AY /HI VMAXtRTVTR(lOP)  0 0 023440 

COMmON/THTNBS/TmaXI ♦ TMAX2* TMAX3* TQRMAX * TOF M A X ♦ P S I M A X * ONE R 

COMMON /ME'-  FR/TTMF2S,  T I ME  1 0 ♦ RMAX ♦ f T AM A X ♦ PS T 5 ♦ PHIMAX ♦ DSWMA X 0 0 023460 

COMMON/OOn/niN*l)DTO»nf)T*  T I ME  5 ♦ DDO  ♦ DO  * (TOUT  0 0 02347  0 

COMMON /EF ^/Ol »0?*03*F4»EB»E6  00023480 

COmmon/AL pHA/ALPH(^0)  00023490 

COmmon/COmRI  K / A T X P *Sm»aIYP*AIXZP*GAM1 * G AM? ♦ OAM3 * A I XBR ♦ A I YBR * 0 0 0235  0 0 

1 A I /HR. AJ  ♦ A2»AIX7BR,A1?,E1 * E? ♦ F3 t DEL T A ♦ 6V 1 *GV2fGPl »GP2*GR1*  00023510 

1 fiR?»CTP,CTVP,RZF*RZR»A2T*CA?n,CA23*TIME»0T»  ANGNL  * ANGNLO  00023520 
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9 
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9 
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9 
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♦ OFC ) 

9 
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• ( PAR  AM ( 24 ) 
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9 
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1 

(PARAM ( 25  ) 
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9 
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9 
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9 
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1 
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9 
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♦ R4  ) 
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9 
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1 
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♦ CAO  ) 

♦ 
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♦ ( P AR AM ( 36 ) 

♦ CA2 ) 

9 
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1 
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9 
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♦ CA4) 

♦ (PAPAM ( 39 ) 
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9 
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1 
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9 
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♦ AKSC) 
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« 
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1 

(PARAM (43) 
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f 
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♦ AKSL) 
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9 
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t 
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1 

( PARAM  ( 4-9  ) 

* AIWF) 

♦ ( P A R A M ( 50 ) 

9 AIWH) 

9 (PARAM (51 ) 

9 AID) 

9 

1 

(PARAM ( 5 P ) 

9 A R 8 R ) 

♦ (PARAM ( 53 ) 

9 EPS  1 > 

9 ( P AP  A M ( 54 ) 

9 EPS2 ) 

• 

] 

(PARAM  (5m 

9 PTPR ) 

, (PARAM ( 56 ) 

9 YSAl ) 

, (PARAM ( 57 ) 

9 YSA2 ) 

9 

1 

(PAW AM (5h ) 

9 YHS1 ) 

♦ (PAPAM ( 59 ) 

9 YHS2 ) 

9 ( P AR AM ( 60 ) 

9 AKD) 

9 

1 

(PAPAM (6] ) 

9 TQDRR ) 

, (PARAM ( 6 2 ) 

9 AK  ) 

9 (PARAM ( 63 ) 

9PIN) 

9 

1 

( PARAM ( 64 ) 

9 Q T N ) 

9 (PARAM ( 65 ) 

9RIN) 

9 (PARAM ( 66 ) 

9UIZ) 

9 

1 

( P A R A M ( 6 7 ) 

9 VTN) 

. ( PA RAM ( 68 ) 

9WIN) 

9 ( P AR AM { 69 ) 

9XIN) 

9 

1 

( P A R A M ( 7 0 ) 

9 y r m ) 

, (PARAM (71 ) 

9 Z I N ) 

9 ( PARAM ( 72 ) 

9 The  I n ) 

9 

1 

(PAPAM (78) 

9 P H T I N ) 

, ( P A R AM ( 74 ) 

9PSI IN) 

9 (PAPAM ( 75 ) 

9 DT I N ) 

9 

1 

(PARAM (76 ) 

9 TEND) 

♦ (PaRAM ( 77 ) 

9 AKT 1 ) 

9 (PARAM ( 78 ) 

9 AK  T2 ) 

9 

1 

( P A R A M ( 7 « ) 

9 A K T 3 ) 

, ( PARAM ( 80 ) 

9 AKT4) 

9 ( PARAM ( 81 ) 

9 RPS 1 ) 

9 

1 

(PARAM (8 p) 

9 R°S? ) 

, (PARAM  ( 83 ) 

9 P P S 3 ) 

9 ( PARAM ( 84 ) 

9 RPS4 ) 

9 

1 

(PARA M (85) 

9&I  ) 

, (PARAM ( 86 ) 

9 R2 ) 

» ( PARAM ( 87 ) 

983) 

POUT VALENrF 


(PAPAM ( oi ) 9 DEL 3PM ) 
(Pawam  ( 04  ) *|)E'L3IN) 
(PaRAM  f q J ) »nrwi IN) 
(PaPam  r 1 00)  »ti?PiM)  * 
(PaRAM  f 1 03)  9 S 1 P I N ) 9 
(PAWAM(106)  9 94P  T M ) 9 


( PAR AM  ( 90 ) 9 DEL2DN ) 9 
{ PAR AM  ( 93) 9 DEL2 1 N ) t 
(PARAM (96)  9 PH  I RN ) » 

( PAR AM  ( 99 ) ♦ U 1 P I N ) « 
(PARAM (102) 9 U 4 P I N ) 9 
(PARAM (105) 9 S3P I N ) 9 


(PARAM ( 8Q ) » PEL  1 DM ) 

( PAP AM ( 92 ) 9 PEL  1 TM ) 9 

(PARAM(  95) 9PHIDN) 9 
(PARAM ( 98 ) 9 OF W? I N ) 

(PARAM  (10  1)  *IJ3PIN  ) 9 
(PARAM (104)  9 S2P I N ) 9 
(PARAM(107)  » PPR  T ) 

(PARAM ( H 0 } ,TOMAX ) 9 (PARAM ( 1 1 ] ) , AKTQ)  9 (PARAM ( 1 1?)  9 VCIN) 
(PAPAM(1  i3)  9 S W M T ) 9 (PAPAM(  U4)  9 D S ^ C M ) 9 (PARAM(115)  9TST)  9 
1 (PAPAM ( 1 14) .DSLP) 9 (PARAM ( 1 17) 9CGAM) , (PARAM ( 1 18) 9CS) 

1 9 ( PARAM  (1)0)  9 T QRRR ) ♦(PaRAM(120)9TQFRP) 

1 9 ( P AR AM ( 1 ? 1 ) , PFL ) 9 (PaRAM(122) 9TTP)  9 (PARAM(123)  9 DSW ) 

1 9 ( P A R A M ( 1 24)  9 TSW) 

FOIJI V ALENrE 
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1 (PARAM ( 1 33) 9 AKSL2) 9 (PARAM( 134) 9 AA1 ) 9 (PAPAM( 135) 9 AA2) 9 
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• 
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) 

t 
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) 

1 
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9 
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) 

t 
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) 

l 

( PARAm ( 1 54 ) 9 TD 1 ) 

9 

(PARAM ( 1 55 ) 9TO2 

) 

• 

(PARAM (156) 9 TD3 

) 

1 

(PARAm ( 157)  9 TD4  ) 

9 
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) 

9 
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1 
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9 
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9 
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) 

l 
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9 

(PARAM (164) 9T8R 

) 

9 
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) 

1 
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9 
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) 

9 
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) 
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(PARAM(?91 ) 9RAO) 9 
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(PARAM (?95) 9 P A4 ) 
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PR*  9 • 
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•FFE1 ' 

•FFE2* 

1 
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* C R 3 C • 

» CR3T • 

*CR4C* 

1 

* AKF  1 * . • AKF2 * 

* A K F 3 • 

* AKF4 • 
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1 

* SSI  1 * . • SS21 » 

• SS3 1 * 

* SS4 1 * 

' SS 1 2 ' 

1 

• SS23  * . * S S 3 3 * 

* SS43 • 

* SS14  * 

' SS24 ' 

1 

* R P 3 1 * , ' QP41  • 

*RP1 2* 

* RP22 • 

•RR32* 

1 

* L R 4 1 * , *|  R 1 2 * 
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' LP3?  * 

•LR42* 

1 

• TOR 0 * , • TGRl • 

• TSF* 

» TSR* 

1 

•AXLE*  . • pSR3  * 

•PSR4* 

• ROT  * * 
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1 

•AXLE* . ' P S R 3 * 

* PSR4  * 

/ 

DATA  RAD/^. 1 745329F-1/ 

RFAL*4  I OUT 

« IN 

* ITMP 

INTFGFP*2  RT  SW 

» R R S W 

» LOTSW 
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96  0 F DPMft T ( • 1 PARAMETER  VALUES  - MOnEL  C 
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960  F OPM A T ( * 1 PARAMETER  VALUES  - MDDFL  C 
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9QQ  format ( • 0 A Nn  thfpf  you  are*) 
no  777  1 = 1*8 
CALI  OISARM(I-l) 

777  CONTINUE 

tofmax=-i ,f?o 

TQRMA  X = -l  . E?0 
AFO 1 =P ARAM (?02) 

AFO?  = PARAV‘  ( ?03  ) 

AF  03  = PAPA«'  ( 204  ) 

AE04=pARA'«  ( 205  ) 

AFOS=PARAm (?06) 

AE06=PARAm ( ?07 ) 
nAMfO=PAPrtM ( ?08 ) 

GAMC1=PAPaM (209) 

AF11=PARA *(210) 

AF1?=PARAm (21 1 ) 

AF13=PARA« (212) 

AP1=PARAM (055 ) 

AP?=PaRAM (2]3) 

AP3=PARAM (2) 4) 

AP4=PARAM (21 5) 

AP5=P ARAM (216) 
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* X-IN 
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* *00024470 
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' *00024480 
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•PHIR 
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• *00024500 
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• nSLP 
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00024530 
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• *00024540 
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• AML  1 ' 
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* .00024550 
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* RT 

• *00024560 
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•ZET1 

•ZFT2* 

' ET  X 1 

* *00024570 
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» /00024580 
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• *00024580 

• *00024590 

• *00024590 

• OL FN  * 

' DLRN 

* TRSW  » 

00024600 

• S'VG  • 

* SWPG 

• EK  1 • 

• EK2 

* .00024610 

• M0F2  » 

' M0C3 

•M0C4* 

' M0C5 

• *00024620 

• M 1 C 3 * 

* PTC  1 

* PTC2 • 

•KAC1 

* *00024630 

» THF 1 ' 

» THE2 

' CP  1 C ' 

»CR1T 

' *00024640 

• CR4T  * 

* Hi 

* H2» 

* N I 

* *00024650 

* RR2* 

* RR3 

• RR4  • 

00024660 

' SS22 • 

•SS32 

• SS42 ' 

• SS  1 3 

* *00024670 

* SS34  • 

• SS44 

• RP 1 1 ’ 

•RP21 

• *00024680 

* R P 4 2 * 

•LP1  1 

•LB21 • 

•LP31 

* * 00024690 

» TLF* 

• ZPO 
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• RMPN 

* *00024700 

' TANP  • 
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» .00024710 

R A 1 » t ' P A? • ♦ *RA3 
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/ 

00024730 


.ODON 
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00024750 
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00024750 

00024760 

00024770 

00024780 

00024790 

00024800 

00024810 

00024820 

00024830 

00024840 

00024850 

00024860 

00024870 

00024880 

00024890 

00024900 

00024910 

00024920 

00024930 

00024940 

00024950 

00024960 
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PTn=PARA  (>>17) 

00024980 

rTv«ax=-1.F20 

00024990 

P T C ? = P A R A M ( p 1 g ) 

00025000 

FFFJ=PARAm(2]R)«. 01745320 

00025010 

F FF?  = paRA  "I  ( p?n ) *. 01 745 32Q 

00025020 

pST^AX=-1.F?0 

00025030 

THE  1 *PA«A‘'  < ??1  > *.  01  74  5329 

00025040 

T HFP  = P ARAM  (???)  * . 01  748329 

00025050 

PS  T m = ps  I T^PAD 

00025060 

XF  MO: TFNO 

00025070 

T M a X 1 =- 1 , f?0 

00025080 

tmax?=-i.f?o 

00025090 

Tma  x 3 = - 1 .r?o 

00025100 

T tmf?S  = 0 . n 

00025110 

T lMFl(j  = 0.n 

00025120 

01=-6.0F-<^ 

00025130 

02  = 0 . (in4 

00025140 

03=0.0001 

00025150 

"n 

ii 

o 

o 

►— 

O' 

00025160 

FS=-0.46 

00025170 

F 6=1 0.4 

00025180 

A M 1 1 M 0 = 0 . 0 

00025190 

A DF  M0  = 0 • 0 

00025200 

RMAXs-1 .FoO 

00025210 

PST  5 = 0 . 0 

00025220 

nSWMAX=-].F?0 

00025230 

PHTMAX=-1 ,f?o 

00025240 

F T A M A X = - 1 .E20 

00025250 

I T S T = P A R A R (88 ) *0 .5 

00025260 

PEL  1 DT  = DF  1 1PN 

00025270 

PEL2PT=DFl  2l)N 

00025280 

PEL  3 P T = D F | 3PN 

00025290 

P E 1. 1 =PFL  1 TN 

00025300 

pfl?=i)EL?tN 

00025310 

PFL.3  = PFL3TM 

00025320 

PHIRP=PHIPM4RAD 

00025330 

PHIR=PHIRm*PAD 

00025340 

PFLFW  1 =DF’*i  1 TN*RAP 

00025350 

nELFW?  = 0Fw?TfM*RAP 

00025360 

nnnao , n 

00025370 

pn=o . o 

00025380 

UlPsUlPlM 

00025390 

U?P=U2PIN 

00025400 

IJ3P  = U3P  I N 

00025410 

t ) 4 P = l J 4 P I M 

00025420 

S 1 P=S 1 P I N 

00025430 

S?P  = S?PINJ 

00025440 

S3P=S3PIN 

00025450 

S4P=S4PIM 

00025460 

T T A = 0 . 0 

00025470 

PF SI.  P = PFL/0.2 

00025480 

Q 1 ) A M 1 = 0 . 0 

00025490 

QUAM?=n . 0 

00025500 

OUAW3=0 . 0 

00025510 

QUAM4=0,0 

00025520 

FlF]=CFP*SlGN(l. ♦DEL1DT) 

00025530 

F] F?aCFP*SlPN ( 1 . « DFL2DT ) 

00025540 

IF  (OFL1 oLT.OFC) 00  TO  1 

00025550 

IF  (DELI  .GT.OFDfiO  TO  2 

00025560 

F2Fl=AKF*f'ELl 

00025570 

100 


C 

K 

c 

00025580 

1 

F?F1  = AKF«  f *L  AYiF^nFL  1-  ( ALAMF-1  . ) *OFC) 

00025590 

GO  TO  3 

00025600 

? 

F?F 1 = AKF* ( A|  AMFOHFLl- < AL AMF-1 . ) *OFT ) 

00025610 

3 

IF (OEL2.LT.OFC) GO  TO  A 

00025620 

TF (nF|  2.GT.OFT) GO  TO  * 

00025630 

F?F?=AKF*oEL2 

00025640 

GO  TO  6 

00025650 

A 

F?F?=AKF» ( A-AMF*OEL2- ( ALAPF-1 .0) *OFC) 

00025660 

GO  TO  * 

00025670 

5 

F2F?=AKF* ( A|  AMF*OFL?“ ( A L A MF - 1 . ) »OF T ) 

00025680 

6 

GlP=-fF*nFL 1 0T-F1F1-F2F1 ♦ ( RF* ( OF L 2-OFL 1 ) ) /TF*«2 

00025690 

5?P  = -CF^DFLPDT-F1F?-F?F2- (RF*  (DFL 2-DEL  1 ) ) /TF**2 
I F ( PARAM  (287)  .Ffj.2.  ) GO  TO  10* 

00025700 

7FTA3=TS*PHTR/2.+nEL3 

00025710 

7FTa30=T5«PwIRD/?.+DFL3DT 

00025720 

ZFT  A4  = -ZFT  A *DEL3 

00025730 

ZFTa4D  = -7f T a30*?.*DEL3DT 

00025740 

TF ( 7 F T A 3.1  T.ORC) GO  TO  7 

00025750 

IF (ZETAi.GT.OPT)GO  TO  8 

00025760 

F?R3=aKW^7FTA3 

00025770 

GO  TO  9 

00025780 

10*  7F  T A 3 = DFL  "3 
/FT  A4  = DEL4 
7FTA3n  = ()F!  3nT 
ZF  T A4D  = DF I 40T 
GO  TO  9 

7 F?R3  = AKR* ( ALAMW#7ETA3- ( ALAMR-1  . ) *ORC) 
GO  TO  9 

8 F2R3=AKR»  ( A|_AMR#ZFTA3-  ( A I.  AMR-]  . ) #ORT) 

9 TF  (7ETA4.I  T.0POG0  TO  10 
TF  ( 7ET  A4.r,T.0RT  ) GO  TO  ll 
F2P4=AKR*7ETA4 

GO  TO  12 

]0  F?R4  = AK'R<UA|_AMR*ZFTA4-(ALAMR-1.)  »orc) 
GO  TO  12 

11  F?R4=AKR«(A|  A MR#ZF  T A4  - ( A I.  AMR-  1 . ) »OR  T ) 
1?  F1P3=CRP*9IGN ( 1 . *ZETA3n) 

F 1R4  = CRR*FIGN ( 1 « » Z E T A 4 D ) 
S3d=-CR*ZfTa3D-F 1R3-F2R3-PR*PHIP/TS 
G4P  = -CR<*ZfTa4D-F1R4-F2R4*RP*PHIR/TS 

P=d JN*RA0 

PO  = P 

Q=OIN*RAP 
00  = 0 

p=ptn#rad 

RO  = R 
11  = 1)  I N 

uo=u 

Y = VTN 
V0=VIN 

vi  = ««<  T N 
W0  = '*'IN 
X = X TN 
XO=X IN 

Y = Y T N 

Y 0 = Y T M 
7 = 7 IN 
70  = 7 1 N 

THF=THEIN«PaO 


00025790 

00025800 

00025810 

00025820 

00025830 

00025840 

00025850 

000258*0 

00025870 

00025880 

00025890 

00025900 

00025910 

00025920 

00025930 

00025940 

00025950 

00025960 

00025970 

00025980 

00025990 

00026000 

00026010 

00026020 

00026030 

00026040 

00026050 

00026060 

00026070 

00026080 

00026090 

00026100 

00026110 
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O O T TO 


r 

c 


H40 

QClfl 

C ROM 


S4  3? 
4 321 


2n 


6Q 


C 

C 

c 

c 

c 


thfo=tme 

PH  I =PH  I I R Ad 
DHT0=PHI 
PSI=PSI  IKjoRaO 
PST  0 = P S I 

TF  (PPPT.Nc  .0. 0)  PRINT  960,(ALPH(T)*I=1»?0),((K*NAME(K)*PAPAM(K>), 
V - 1 » M 1) 

TF {PPRT.Mr . n.O ) WPITF (LPTP*9bn ) ( ALPH ( I ) » Is! *?0) » ( (KtNAME (K) * 

P A P A M ( K ) ) iKsl »N1 ) 

FORMAT  ( 1 On  IP, 8) 

T IMF  = n . 0 
n T = 0 . 0 

FORMAT  ( * 0 « « PF.  1 5.  6 ) 

FORMAT  ( • 0»8F15.6) 

T HSul  = o 

x h ( i ) =param (?n l ) 

NHMP  = PARA*'  (?7/)*0,S 
TF (MRMP.LT. ?>GO  TO  4321 
no  S4  •(?  I=?,NHMP 
XH ( T ) =XH ( T-l ) +PAPAM ( 199) 

CONTINUE 
FONT  I HUE 
CALI  SPPO^P 

no  20  1=1,40 

CALL  STINn (TERR* IHAC ( I ) * TOUT (T ) ) 

CONTI MUF 

CALI  LBDAoP  (0f),39t  TOUT,  TLRERR) 

CALL  TLD A 

WRITE  (LPTd,f9)  (II)AC(I)  * I OUT  ( T ) * T = 1 *48) 

FORMAT ( 1 H T , * DAC  #**5X,*nAC  VALUE » » /// * < 1 3 »5X » F 1 2 .5 )) 

CALL  TSCAl  ( TERR*  ITSC) 

CALL  STCO ( ITSC* TSTCOE) 

AO-4  & 68n  COOE  SAME  FOR  ITSC=0*1.  2,3  OIVFS  ERROR  CHECK 

PARAM  8 H 
OT=OT I N 

CALL  I NMU  X ( I FRR  * 1 ) 

ISW1=0 
I S w 7 = 0 
CALL  ARM(P) 

CALI  ARM (4) 

CALI  ARM  ( ^ ) 

CALL  ARM ( 7 ) 

RETURN 

FNO 


00026120 

00026130 

00026140 

00026150 

00026160 

00026170 

00026180 

00026170 

00026180 

00026190 

00026200 

00026210 

00026220 

00026220 

00026230 

00026240 

00026250 

00026260 

00026270 

00026280 

00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026341 


00026350 

00026350 

00062351 

00062352 

00026360 

00026370 

00026380 

00026390 

00026400 

00026410 

00026420 

00026430 

00026440 

00026450 
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DO  D D D D o 


C SURPOUT  INt--  S«PG7 

SUnoOUTTNf  9HPG7 

C0‘#4Dn/AP|  / OPEN  ,RTSW  *l..DTSW  ,RRSW 

common/rf'/ice/kfyrd»  itty,  icdrd,lptr 

rOMM0rJ/SP7Rl.  K/Nl  , M2*  I POT  (244)  *IPOTAD<?44)  *PARAM(300) 

TNTFGFR  Y p S / * YES  */*NO/*NO*/ 

INTFGF.P*?  PTSW  ,RRSW  ,LDTSW  ,OPEN  ,DPNN 

RF  AL  **4  I OUT  .IN  »ITMP 

0 IMF  NS  TOM  IOPOT  (244)  , ICPOTA  ( 244 ) * I POLD  ( 244  ) ,MPOT  (244)  »MPOTAD  (244) 
njMFNSION  JOA  If (3) 

DATA  NIINF9/9Q99PQ9Q9/ 

DATA  T SW/n/ 

C I I » 7 X • FF  0 0 1 

c wn,7  x i n 02* 

CALI-  SAMO (6, ISAMOF ) 

T DF  V = KFYRO 
IF (OPFN.Fo. 1 ) GO  TO  75 
C ALL  IDATF(JOATF) 

7 5 CONTI NUF 

CALL  CLOCk(TTIMF) 

T HOURS  =1 TImF/3600  00 

lOIF  =lTlME-(THOURS*36onOO) 

MINUTF.  =InlF/6000 

WRITE < I TTY* ft 969)  ( JOATF ( I ) » 1 = 1 *3) * I HOURS  * M T NUTE 
6Q6R  FORMAT  (*  OATE  **I2**/*»I?**/**I2*5X»*TImE«.1X*I?*U**I2*///) 

T F ( OPEN.PG.l  ) GO  TO  ?1 
WRTTF ( ITTy* 1 0 ) 

C CALL  IC(IFRP) 

C CAl.L  LOAD(IFRR) 

CALL  HOFF ( I FRR  » 0 ) 

IOEV=l 01 
WRTTF  ( 1 0 P * 1 0 ) 

10  format  (*  initial  potsft?*) 

PE  AO  (101,20)  I N 1 
REAn (KFYRn,?0 ) IN] 

20  FORMAT  (AT) 

IF  (INI. Eo, YES)  GO  TO  2000 

31  CONTINUE 
32  WRTTE ( ITTy, 33) 

33  F0RMAT(*  pND  OF  CARD  DATA*) 

34  CONTINUE 

21  WRITE ( ITtY.30  ) 

WRITE  (102*30) 

30  FORMAT  (•  INPUT  FROM  CONSOLE?*) 

READ  (101,20)  IN2 
TDEV=101 

READ (KEYRD.20 ) IN2 

IF ( ( IN2.NF.YES) . AND. ( IN2.NF.NO) ) GO  TO  SS 
GO  TO  65 

55  WRITE ( ITTv*66) 

66  FORMAT  (*  TYPING  ERROR*  TRY  AGAIN*) 

GO  TO  31 
65  CONTINUE 

I OF V = KEYRD 
45  CONTINUE 

WRTTE ( ITTY, 11  ) 

11  FORMAT(*  PTM  REOUIRED?*) 

RF  AD  ( KEYt>D,20  )I0PNSW 
IF ( IOPNSW.EQ. YES  ) RTSW  = 1 


0000495R 

00004960 


00004970 


00004990 

00005210 

00005220 

00005230 

00005240 

00005250 

00005280 


00005281 

00005290 

00005250 

00005260 

00005270 

00005280 

00005290 

00005300 

00005310 

5310 

00005320 

00005330 


00005340 

00005340 

00005350 

00005360 

00005370 

5360 


00005370 

00005371 

0000537? 

00005373 

00005374 
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2G 

3G 

C 


12 
Cl  "00 
] non 
50 


r 

6 0 

1 100 

1?00 

c 

700 
1 ?1  0 


1 350 


1300 

c 

70 

1350 

1500 


1520 

1550 

C 1 5 0 0 
1500 
100 


NUMRFR  LARGER  THAN  307  NOT  ALLOWED--TPY 


GO  TO  1250 


IF ( I0PNSW.FO.N0  ) RTSW=0 

IF  ( ( IOPNS'-'.NF.YFS)  .AND.  (TOPNSW.NF.NO)  ) GO  TO  25 
GO  TO  35 
WRITE  ( I TT  Y » 66 ) 

GO  TO  45 
CONTINUE 

TF  (IN2.NF.VE5)  IL)FV  = 105 
IF  ( IN2.Nr.vFS)  inEV=ICOPD 
WRITE ( I T T Y « 1 2 ) 

FO.RMAT  (»  mOPARM  ( I 3 » 1 X ) PARVAL  (G20.6)  » ) 

REAP  ( I D E V » 5 0 ) MOPAPM » PARVAL 

RF  AO ( inEV.50»END  = 32)  NOP ARM* PARVAL 

FORMAT  ( T 3* ] X «G20 .6) 

IF  (NOPARm.GT.300 ) GO  TO  1200 
TF  (NOPARm.lE.N1)  GO  TO  1100 
WRTTE  (102*50) 

WRITF(ITTY*GO) 

FORMAT  (*  PARAMFTER  NUM5FP  EXCEEDS  LIMIT*) 

GO  TO  100ft 

PAR AM (NOP ARM) sPARVAL 
GO  TO  100ft 

IF  (NOPARm.LE.307)  GO  TO  1210 
WRITE  (103*700) 

WRTTE ( ITT V*  70  0 ) 

FORMAT (*  PARAMETER 
GO  TO  100ft 
TF  (N0RARm.mf.307) 

CALL  RFAOrn 
GO  TO  190ft 

call  POTSfT 
IF  (ISW.Eo.l)  GO 

in=o 

no  1300  J - 1 *244 
IPOLD ( J) =TPOT ( J) 

IF  ( I POT ( J ) ,E  0 • NTNFS ) 

T 0= I D ♦ 1 

ICPOT ( ID) =IP0T ( J) 

TCPOTA ( I D ^ = I POT  AD ( J ) 

continue 

TF  (IO.EO.N2)  GO  TO  1350 
WRITE  (102*70)  N2 
WRITE ( I TTv*70 ) M2 
FORMAT  (*  POTSFT  REOIJIRFS 
TSW=1 

GO  TO  155ft 

T o=n 

DO  1520  J= 1 *244 
TF  < I POT ( . ) ) .FQ.TPOLD(J) ) GO 
t polo ( j ) = t pot ( j ) 
to=td*i 

TCPOT  ( ID) slPOT  < J) 

ICPOT  A ( in) =tpotad ( J) 

CONTINUE 
TSW1=NOPApM-300 

GO  TO  (10nO, 1600, 1700*1700*1700*1780)  *ISW1 
WRITE  (10ft*100) 

WRITF  (LPTR.100) 

FORMAT  ( * 1 • /« 0 • /» OCHANGED  POT  ADDRESSES  AND 
K =5  0 

IF  (ID.LT.50)  KsID 


00005375 


TO  1500 


GO  TO  1300 


•*  13*  • POT  VALUFS*) 


TO  1520 


VALUES: */»0*/) 


00005380 

00005380 


00005390 

00005400 
00005410 
00005420 
00005430 
00005430 
00005440 
00005450 
00005460 
00005470 
00005480 
00005490 
00005490 
AGAIN* ) 00005500 
00005510 
00005520 
00005530 
00005540 
00005550 
00005560 
00005570 
00005580 
00005590 
00005600 
00005610 
00005620 
00005630 
00005640 
00005650 
00005660 
00005660 
00005670 
00005680 
00005690 
00005700 
00005710 
00005720 
00005730 
00005740 
00005750 
00005760 
00005770 
00005780 
00005790 
00005800 
00005800 
00005810 
00005820 
00005830 
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ITFMp=H)/t,0 
DO  lhSd  L = 1 * K 
LI  aST  = S0*T  TfMP*L 

IF  (LLAST.PT. 10)  LLAST=LLAST-50 
T WRTTE  (108*150)  ( ICPOTa  ( J)  * ICPOT ( J)  * J=L » LL AS T » 50 ) 

w»TTF(LPTo,lsn)  ( ICPOTA (J)  ♦ ICPOT  (J)  »J=L*LLAST»50) 

1 50  FOPmaT  (•  »*  4 ( T4*6X, 18* 14X) ) 

1850  CONTINUE 

00  TO  IflOo 

C 1 7 0 0 WRITE  ( 1 0 a ♦ 2 0 0 ) 

1700  WRT TF (LPTp.POO) 

200  fopmAT  ( 9 i */ip»/*opot  aooressfs  and  values: */*0»/) 

10  = 0 

00  1 7?0  J= 1 « 244 

IF  ( IPOT(.I)  .EO. NINES)  00  TO  1720 

1 0= I G+  1 

MPOT (10) = T P 0 T ( J) 

M POT  AD ( IG) = T POT  An ( J) 

1720  CONTINUE 
K=50 

IF  (IO.LT.SO)  K=  T O 
T TFMPsIG/^O 
no  17  5 0 L = 1 * K 
LLAST  = 50-»t  TF  MP  + L 

IF  (LL6ST.GT. IG)  LLASTsLL AST-50 
C WPTTF  ( 1 0 « • 1 S 0 ) (MPOTAD ( J) »MPOT ( J)  ♦ J*L ♦ LL AST ♦ 50 ) 

WPT  TE  (LPTu*  150  ) ( MPOT AD (J)  * MPOT  ( J ) ♦ J = L * LL A ST ♦ 50  ) 

1750  CONTINUE 

IF  (ISW1.FQ.3)  00  TO  1R00 
C WRITE  ( 108*300)  (J*PARAM(VJ)  ,J=1  ,N1  ) 

WRTTE (LPTp*  30  0)  ( J ♦ P AR AM ( J ) » J=1 *M1  ) 

700  FORMAT  (M’/’O PARAMETER  N0.«*  5 X * » P A R A ME TER  VALUE»/»0'/ 
1 ( * • ♦ 6 X . 13*  1 1 X * 013.5)) 

IF  (ISWl.rQ.4)  00  TO  1800 
IF  (ISwl.rQ.5)  f;  n TO  1 R 0 0 
C 1 7 8 0 WRITE  (100*400)  ( J ♦ P AR A M ( J ) * J= 1 * N 1 ) 

1780  WRTTE (ICDDN*400)  ( J ♦ P AR AM ( J ) * J=  1 * M 1 ) 

400  FORMAT  ( I 7 » 1 X*G20.6) 

00  TO  1900 
1800  CONTINUE 

87  FORMAT  ( 8 r;  2 0 . 6 ) 

C C A | L INITa ( I ERR ♦ 0 ) 

C IP  (IEPR.nE.O)  GO  TO  1800 

IE  (ID.EO.O)  GO  TO  1 R 0 0 
DO  1850  Jr  1 * I D 

C CALL  STINn ( IERP* ICPOTA (J) ♦ ICPOT (J) ) 

CALL  SPOT ( ICPOTA  (J)  ♦ ICPOT (J)  *03* IERR) 

1850  CONTINUE 
C1R00  CALL  INITa ( IERR*0) 

C IE  (IERR.mE.O)  00  TO  1900 

1900  CONTINUE 
1R50  CONTINUE 

CALL  SAMO (6 . I SAMOE ) 

C L I ♦ 7 x*FFOO» 

C WD.7  X»1202» 

RETURN 

2000  CONTINUE 

OPEN  = 1 

IF  ( (Nl.GT.300)  .OR.  (N2.GT.198) ) GO  TO  900n 

C WRTTE  (102*500)  Nl*N2 


00005840 

00005850 

00005860 

00005870 

00005880 

00005880 

00005890 

00005900 

00005910 

00005920 

00005920 

00005930 

00005940 

00005950 

00005960 

00005970 

00005980 

00005990 

00006000 

00006010 

00006020 

00006030 

00006040 

00006050 

00006060 

00006070 

00006070 

00006080 

00006090 

00006100 

00006100 

00006110 

00006120 

00006130 

00006140 

00006150 

00006150 

00006160 

00006170 

00006180 

00006190 

00006200 

00006210 

00006220 

00006230 

00006240 

00006240 

00006250 

00006260 

00006270 

00006280 

00006290 

00006300 

00006310 

00006320 

00006321 

00006330 

00006340 
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KIR  TTF  (ITTY,5nO)  Ml  ♦ M ? 

00006340 

son 

Format  («  *,  I3»  * PARAMFTFRS 

AMD 

».  13*  « 

POTS  REQUIRED*/ 

00006350 

] * tmput  from  cards?*  ) 

00006360 

r 

R F A f > (101*20)*IN2 

00006370 

RFAO (kFYRo»?0) IN? 

6370 

r 

I dfv=i ns 

00006380 

c 

TF  ( I M?  e NF  « Yp  S ) IDEV=101 

00006390 

I of  v = iCnRn 

00006380 

IF  (lM?.Nr.YFS)  inFV=KFYRD 

00006390 

r q n n n 

wPTTF  (10ft*  son) 

00006450 

rooo 

WRITE (LPTo»SOO) 

00006450 

T Sw  = 0 

00006400 

no  3000  J=l*244 

00006410 

TROT { J) = M T N F S 

00006420 

3 o o n 

COM  T I Ml  IF 

00006430 

GO  TO  1000 

00006440 

son 

FORMAT  (•  OmLY  300  PARAMFTFHS 

AND 

244  POTS 

ARE  ALLOWED*) 

00006460 

c 

STOP 

00006470 

RFTIJRM 

00006470 

F NO 

00006480 
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c 

r 


c 


c 


SURPOUTINF  PTMON 
SURPOUT I Mr  PTMON 


COMMOM/APl  / OPEN  » RTSW  *LDTSW  ,R«SW 

COMMON  /RrRlK/  AD2RH  *AD1PR  *CLSPR  * CLRRR  ♦ T CRB  *OPPB  .PILRR 

COMMON  /R«R|  k/  TCNBUF  *TlMRUF*LOARR  * T Q A R 8 » P I LRR 1 

COMMON  /FrRuLK/PILECB,TCNFCH,TIMFCB, AOAFCP » TDAECR 

COMMON  /E<“RRL  K/AD2FCR,  AD  1 ECB ♦ CL SFCB , CLRFC« ♦ ICECR  .OPFCR 

COMMON  /ErRRLK/oSFCF  *DONECB 

COMMON/DF VlCE/KFYRD* ITTY, ICDRDjLPTR 

COmmon/HHuH/HI »H?»H3*H4 

COmmON/SPi  TAX/SPSR3*CPSR3*SPSR4*CPSP4*SCR3*SCR4*TBCR3*TRCR4*TBSR3* 
1 TRSR4*TRSR3*TRSP4*TRCR3*TRCR4,PSR3*PSR4» I AX 
C 0 M M 0 M / T A»LFS/PHIFNT (7)  *THEFNT (7)  *PSIFMT (7)  *PHIRR (7)  » THERR ( 7 ) ♦ 

1 PSIPP(7) 

COMMON/EXTRa/  UOUT  * ROUT  « PS T OUT ♦ EX T AB ( 1 0 0 ) * 

1 OLYTR ( l 00 ) »RTAR ( 100 ) 

COMMON/FPTnAY/BTVMAXtBTVTB (100) 

COMMON/THtNoS/TmaXI *TMAX?*TMaX3»T0RMAX*TQFMAX t PS I MAX, ONER 

COMMON/FFFS/FFE1 *FFE2*THFl *THF2 

COMMON/OFl  S/DELSwC 

COmmOI'I/CLFAM/ONEOA  tONEOO*PBSW*PR 

COMMON/NUTS/TOO 

COMMON /XY7/MUMRR 


COMMON/OUaNTS/OIJANI  *OUAN?,QUAN3*OUAN4 

COMmon/EF^S/ANUM,  ADEN*  ANIIMQT  * ADFNDT.  ANUMO*  ADENO*  ANUMDO*  ADENDO* 

1 ANOUT  * A OOUT 

COMMON/ XRR/XB <12>*NS(4*12>*0FLX(4)*XI(4)  » NNN 
COMMON/NEi''EP/TlMF25»  TIME1  0 »RMAX»ETAMAX  ♦PSI5«PHIMAX»0SWMAX 
COMMON/ VAoS/P*Q*R*lJ*V*W*X*  Y*Z*THE*PH  I » PS  I ♦ PO  * QO  * RO  ♦ UO  » VO  * WO  * XO  ♦ 

1 yo»zo,theo»phio»psio 

COMMOM/UViv/VC  ♦ UIN 


COMMON/EFR/Ol *02»03*E4.E5*E6 
COMMON/ZII  CH/TQMAXP* AKTQP 

COMMON/ INOUT/ I NA (32).IOUTA(4fl)*IN(32)»TOUT(48)*ISWl»lSW7.SFIN(32)t 
1 SFOUT (4ft) * IPRT* TTmP (48) 

COMMON/ A maLoG/DFLIDT ♦OF L2DT* DEL 30 T«OEL 1 *DFL 2 * DEL 3 ♦ PH T RD ♦ PH  I R t 
1 DELFWI *DELFW?*U1P*U2P*U3P»U4P»S1P*S2P*S3P*S4P»TTA»PFSLP 
COMMON/COmRik/AIXP^SM, A I YP ♦ A I XZP ♦ GAMl *GAM2»GAM3* AIXBR*AIYBR« 

1 AI7RR,A1 *a2* ATXZRR* A12»E1 ♦ E2 . E 3 ♦ DEL T A . GV 1 »GV2*GP1 *GP2»GR1 * 

1 OP2»CTP.CIVP*RZFtRZR*A2T*CA?OtCA23*TIME*DT*  ANGNL  • ANGNLO 

1 »TP02,TF02f TS02*G* THRD*TWN7 

COmmON /UDn/niN*DD TO *nDT*TlME5*0n0*0D*00UT 
COMMON/OP^W/IHSW 

COMMON /SP7RLK/N] *N2* IPOT (244 ) ♦ I POT AO (244) , P ARAM (300 ) 

COMMON/M I rKFY/ 1 PUNTB  (100)»VTB(100)  * SNLTB (100)*  SNRTB (lOO).DSWTB(lOO 
1 ) ,PTTR(lOn) ,DTR(100) *EFFTR(100) *DYTR(100) .PSITR  (100)*NRUN, 

1 YSPEC*RSIM*XPF 
1 *TMPTR(100) 

C0mm0N/N0nAme/XFND»0*EX IT2 
DIMENSION  CSI (4) *XPM<4) *SLP (4) 


PEAL^ft 

BUFF (ft) 

♦ P T LRR ( 3 ) 

♦LDARR (21 ) 

♦TCNBUF (8) 

REAL*ft 

TIMRUF (B) 

REALMS 

SAVF2 (16) 

♦PILRR1 (3) 

♦ A02RR (6) 

» AD1RR (6) 

RFAI*8 

CLPP8 (6) 

♦OPPB (6) 

♦ TO ARB ( 6 ) 

REAL*ft 

SAVFO (16) 

» SAVE1 (16) 

« CLSRR ( 6 ) 

♦ ICRB (6) 

PEAL*4 

I OUT  ♦ I N 

* ITMP 
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c 


c 


r 

c 

r 


PE  AL *<+ 

A0C2 (04) 

.AOCl (24) 

TNTPGFR*4 

tt^can 

» TCNECB 

.TIMFCP 

TNTF6FP*4 

CONSL/Ol/ 

.PILECB 

. ADAFCR 

.TOAECB 

INTF6ER*4 

RCLO/OO/ 

.CLRFCR 

. IMOOOP/04/ 

» OPECB 

T NTF6E  R*4 

FVTRFT/02/ 

♦ TIMINT/1 20000/ 

I NTF6FR*4 

F2/20/ 

♦L2/23/ 

, FIRST/00/ 

.LAST/39/ 

T NTF6FR*4 

NONE /O  0 / 

. AD2ECR 

.AD1ECB 

T NTFGER*4 

SCLO/OO/ 

♦CLSECB 

. IMOOIC/OfS/ 

♦ ICECB 

INTF6ER*4 

M0NF/-1 / 

.F 1/00/ 

.Ll/23/ 

T NTF 6EP*4 

toaecb 

. status 

TNTFGFR*4 

OSFCR 

» nONECB 

integer*? 

PILIST (?) /I .O/.FVTLST/l/ 

TNTFGFR*? 

INTEGFR*? 

UN  IT/] 9/ 

NUMFVT/03/ 

. ZERO/OO/ 

I NTF6ER*2 

TwO  /O?/ 

, ONE/Ol/ 

INTF6EP*? 

RTSW  ,RRSW  .LDTSW  .OPFN  .OPON 

FOLITVALENrE 

(AOCl  (24)  . 

IN (24 ) ) 

. ( ADC2 ( 1 ) * I N ( 25 ) ) 

fxtfrnal 

INIT.CART  .ENDRUN. 

HYBINT 

I F ( RRSW.fO 

. 1 ) 60  TO 

200 

call  bi  jcb  ( 
tall  OfFFP( 
CALL  OFFFP( 
call  DfFFP( 
call  cprcrr ( 
call  CpBCPP( 
call  T|_DaRB( 
call  SpClPB( 
call  PsC|RR( 
call  SaMORB( 
call  SaMORB( 
= 0 
= 1 


» J007«  .OSPCR.NUMEVT.NONE  ) 
INIT.SAVEO.ZERO. 'NONE* » *NO»  ) 
FNOPUN  .SAVE 1 .ZERO. • NONE  * ♦ «mO* 
CART. SAVE2.ZER0. 'NONE* ♦ *NO»  ) 
FI  .LI  ♦ AOCl . AD1RB. AOIECR.CONSL 
F2.L2. ADC2* A02RP. AD2ECB.CONSL 
IOARR.TOaECB.CONSL  ) 
SCLO.CLSPB.CLSECB.CONSL  ) 

) 

) 

) 


RCLO.CLRRP.CLRECB.CONSL 
IMODIC. ICRP. ICECB.CONSL 
IMODOP.OPRB.OPECB.CONSL 


OPDN 
RRSW 
200  CONTI MUE 

I F ( RTSW.rO.O  ) 
IF ( OPON.rO. 1 ) 

OPON  = 1 

call  rtopn 
pall  RTACT( 
?0R  CONTINUE 

CALL  OfF PR ( 
LDTSW  = 0 
OSECB  = 0 
CALL  RT ACT ( 
CALL  WaITRT( 
CALL  waITBU( 
CALL  OfFPR ( 
60  TO  215 


60  TO  21  o 
60  TO  205 


ZERO.'jnn?’  ) 
UNIT.HYBIMT. • J007*  ) 


TWO  * * JP07 • ) 

OSECB  ) 

200  ) 

UNIT.MONE. • J007f  ) 


210  CONTINUE 

call  LbD aFP ( FIRST.LAST.IOUT.IERR  ) 
call  Ti  Da 

call  PPCL ( SCLO.ICLFRR  ) 

CALL  CpBCFP(  F2.L2. ADC2. ICPBCF  ) 
CALL  SsCL ( RCLO. ICLERR  ) 

CALL  CPBCFP(  F1.L1.ADC1.ICR8CE  ) 
CALL  SpPo2 
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?1S  CONTINUE 
RFTURN 
FNO 
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r 


SlJMPOUT  I Nir-  u T I Mt- 
SUMPOUTIMC  PTTMF' 


r 


rn>.'f.‘OM/APi  / OPFM  « P 7 S .LOTSW  ,RHFW 

Common  / P 1 J H I K / AD2PR  fADIRR  *CLSPR  tClRRR  «ICRR  , oprr  ♦PILPP 

rnMMON  /RpRLK/  TCNRUF. timruf ♦lhapr  ,tdapp  .pilpri 

TOmmom  /f rRpLK/DiLFrR,7CNECR.TIMECR.AnAFCH.TnAECB 

r f > m n <m  /FrRpLK/ftn?KCR»  ADlFCR»CLSFCRtCLPPCR»  ICFCR  tOPFCR 

common  /F  rRrJLK/nSFCH  « 0 0 N E C R 

rOMMO  vl/OF  w ICF  /KFYPO ♦ I 7 7 Y » I CDRD ♦ l RTP 

C 0 m m o N / S P I TAX/SPSP3*CPRR3*SPc;P4,CPSP4,S0P'<.SCR4.TRCP3.TPCR4*TRSP3t 
1 TRSP4, TPRRRt  TPSR4, TRCP3, TPCP4 . PSR3 * PSP4 ♦ I AX 
C 0 M M ()  N / T A n L R S / P R T F M T ( 7)  * THFFNT  ( 7 ) ♦PSIFNT  ( 7 ) «PHIRR ( 7 ) , THERP ( 7 ) « 

1 PSIPP ( 7) 

rOMMON/FX  TPa/  UnUTtPOlIT,  PMOUT.E'XTaR  ( 100)  ♦ 

l pi.  yt«  n on  ) »RTAH  ( l no ) 

CPR^ON/FP T P A Y/RT Vm ax  « RTVTH ( 1 00 ) 

COmmON/THTNIRS/TMAX  1 f TMAX?.  TMAX3f  TORMAX  » TOFWAX  tPSIMAXtONFR 

COMrfOw/FF  rS/FEF 1 «FFF?»THFl»THE? 

rouMOM/i.iFi  s/riFLSwc 

tommom/clp  am/onfpa «ONFnn.ppsw,pR 

COmmon/NUTS/TOO 

COMMON/XY  7/NllMHp 

COmmon/iJUaNTS/OUANI  *OUAN?*OUAN3*(iUAN4 

COmmom/FFtS/ANUm, ADEN* ANUMOT, ADFNPT  » ANUMO. ADFNOt AMUMPO* APENOOt 
1 ANOUT  * A POUT 

COMMON/XP^/XP ( 1?)  « N S (4* 1?)  *DFLX  (4)  »XI  (4)  « N N M 
rOM*'0Ai/NF>'FP/TlMF?R*TTMF10fPMAX,PTAMAX*PSTS,PHIMAX*nSWMAX 
COMMON /VAo S/P* Q*R.U»V»W*X*Y*7*THE»PHI»PSI,PO*QO«RO»UO*VO*WO*XO* 

1 YO.ZO.TMFO«PHin*PSTO 

rn^MO  >1  / u v '■'  / \/  c » u t n 

COMmon/EFF/O]  *0?.03«E4.Eci«Eh 
rPMMON/ZIl  CM/TQMAXPf aktqp 

common/ I MOUT/INA ( 3? ) ♦ I OUT A { 4ft ) ♦ T N ( 3? ) * I PUT ( 4fl ) » I SW 1 * I SW7 ♦ SF I N ( 32 ) « 
1 SFOIJT (4fl)  * TPPTt TTVP  (48) 

COMMON /AN a l OG/DFLlDT  » UFL2D  T »DFL.  3PT  ♦ DEL  1 ♦ DEL?  . DFL3  ♦ PH  I RD  ♦ PH  T R * 

1 DPLFWl *PFLFw?*U] P*U2P»U3P«U4P*SlP*S2P.S3P»S4P.TTAtPFSLP 
POmmOM/COmRI  K/ATXP* SM, A I YP * A I X ZP * G AM  1 ♦ GAM? ♦ G AM3 * A I XBP ♦ A I YBR * 

1 AIZPP.A1 *A^*AIXZRP*A1?*F1.F2.F3* DELTA* G VI *GV?tGPl»GP?*GRl» 

1 GP?«CTP.CI VPfPZF*RZR* A2T « C A ?0 » C A23 t T I ME  *DT»  ANGNL* ANGNLO 

1 *TPO?.TFO?» TSO?«G* THPD*TWN7 

FOmmon /Dnn/P IN. DDTO ♦ DOT  * TIMER *Dnn.DD*OnUT 
GOmmOn/DPGw/IHSw 

COMMON /SP7R|  K/Nl  »N2»  I POT  (244  ) 1 1 PCI  TAD  (?44  ) ,PARAM  (30  0 ) 

COMMON /m i rKF Y/ IPUNTR (100)  *VTR(100)  « SNL  TR (100)*  SNRTR (100)*DSWTB(100 
] ) .PTTP (100)  *nTH  ( 100 ) .FFFTB ( 100) »DYTfl ( 100) tPSTTR  ( 1 0 0 ) » NRUN  « 

1 YSPFC  * pS T M * XPF 

1 ,TmPTH < 1 n 0 ) 

COmmOn/NOmAmf/XENO.O.FXI T2 


C 


OIMFNSION  CSI (4) *XRM (4) *SLP (4) 


C 


PF  Al.op 
PF AL*B 
RE AL*R 
PEAL*r 
PF AL*ft 
PEAL»P 


BUFF(B)  « P I L RP ( 3 ) *L0APR(21)  t TCNBUF ( ft ) 

TIMPUF (ft) 

SAVFO(lft)  ♦ SAVE  1(18)  .CLSPR(ft)  »ICRB(ft> 

SA VF? ( 16)  » P I L PP 1 ( 3 ) ♦ AD?PH ( ft ) ♦ AD  1 RR ( ft ) 

CLPPR(ft)  ♦ OP PR ( 6 ) « TO APR  ( 6 ) 

RUFF )(&) 
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non  odd  on 


REAL*4 

I OUT  ♦ IN 

♦ I TMP 

RFAL*4 

ADC2 (04) 

♦ ADC1 (24) 

intfger*4 

T I MCAM 

♦TCNFCR 

♦TIMFCR 

INTFGFR*4 

CONSL/Ol/ 

♦PILECR 

♦ ADAECR 

♦TDAECB 

INTFGER*4 

EVTRET/0?/ 

♦TIMI NT/120000/ 

INTFGFr*4 

RCLO/00/ 

♦CLRECR 

♦ IMODOP/04/ 

♦OPECR 

I NTEGER#4 

F2/20/ 

♦L2/23/ 

♦FIRST/00/ 

♦LAST/39/ 

INTFGFP*4 

NONE /0  0 / 

♦AD2FCR 

♦ AD1ECB 

INTFGFP*4 

SCLO/00/ 

♦CLSECR 

♦ IMO0IC/06/ 

♦ ICECB 

INTFGER*4 

MONF/-1 / 

♦Fl/00/ 

♦Ll/23/ 

TNTFGFR*4 

TDAFCR 

♦status 

INTFGEP*4 

OSECR 

♦OONECR 

TNTFGFR*4 

Plt.CPl 

INTFGER*? 

PILTST (?) /I 

♦ 0/ ♦ EVTLST /\ / 

INTFGFR*? 

intfger*? 

UNIT/19/ 

MUMEVT/03/ 

♦ZERO/00/ 

INTFGFR*? 

TWO  /02/  ♦ 

OME/Ol/ 

intfgfr*? 

RTSW  « RRSW 

♦LOTSW  ♦ OPEN  ♦ OPON 

fqu  t VALE Nr e 

( A DC  1 (24)  * I N ( 24 ) ) 

♦ ( ADC2 ( 1 ) ♦ I N ( 25 ) ) 

FVFNT  0 

FNTOY  T N I T 

CALL  Pr,FT(  PILIST*  0 ♦ • JO  0 7 • ♦ P I LRB 1 ) 

PILFCR  = 0 

CALL  PCAM(  PTLIST»RUFF»PILECP  ) 

CALL  HlOCHK(  pilfcp  ) 

call  PPVT(  PILIST.FVTlST, • J007» *PILRR  ) 
OONECR  = 0 

CALL  H w A T T ( DONFCR  ) 

CALL  PPEL(  PILIST, • J007* sPILRRl  ) 

CALL  HoOMt.  ( • DN  * ) 

CALL  HFXIT 

FVFNT  1 

ENTRY  FNDoUN 
TCNFCH  = ft 

CALL  RnTTMRC  T I MC AN ♦ TCNECP ♦ • CANC • » TCNPUF  ) 
CALL  HTOCHK(  TCNFCR  ) 

PILFCR  = 0 

CALL  Pn AC ( PILI?T*RUFF»PILECP  ) 

CALL  HTOCHK(  PTLECB  ) 

PILECR  = 0 

CALL  PCAN(  PILIST. BUFF. PILECR  ) 

CALL  HTOCHK(  PILECR  ) 

ICFCR  = 0 

CALL  H T OPEQ ( ICRR  ) 

CALL  H T OrHK ( ICECR  ) 

CALL  RTCaN ( TWO  * ST  A TUS  ) 

CALL  HOSPST ( *FM*  ) 

CALL  hfxit 

FVFNT  ? 

FNTRY  CAPT 
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?3n 


r 

c 


250 


TF(  Lf'TSW.FO.  1 ) GO  TO  230 

PTI.TP1  = r 

rflLL  P /*  C T ( PTLISTtBUFFl  *PILCP]  ) 
r A L L hrOCHK  { PILCB1  ) 

TIMFCH  = n 


T I Ml  NT  = 1 ,F07*nT 

CALL  L0TTMP(  TIMINIT,  TTMECP»£VTPETf  TIMHIIF 
OPFCH  = n 

CALL  HTOPFQ(  OPRR  ) 

CALL  H t OCHK ( OPECR  ) 


! DTSw  = 1 
CONTINUE 
CLBFCR  = a 

call  H t OPE  0 ( CLRPB  ) 
CALL  H t OfHK ( CLRFCR  ) 
AOAPCH  = n 


) 


^ALL  LrOaRT ( FIRST»LASTf IOUT.LDARR  . AD AECR ♦ CONSL 

call  htochki  adaecr  ) 

TOAPCtt  = a 

call  H t 0 R F 0 ( TOARR  ) 

CALL.  HTOrHK(  TOAFCR  ) 

AOPFCR  = a 


CALL  M t 0 R F Q ( ADPRP  ) 

CALL  H T OfHK ( ADPECR  ) 

CLSFCB  = a 

CALL  HTORFOL  CLSRP  ) 

CALL  H T OfHK ( CLSECR  ) 

AD1FCH  = 0 

CALL  HTOPEO ( A 0 1 Rfl  ) 

CALL  HTOCHKL  A01FCR  ) 

CALL  Sr  PG2 

APL  WILL  TFRMIMATE  RFAI.-TIME  RUN  IF  EITHER 
CONDITION  Shown  RELOW  IS  SATISFIED 


0=S0RT (U#U*V*V) 

T F ( ( ISWl.EO.l  ).0P.(  ISW7.E0.1  ))  CALL  RT  ACT ( ONE 
IF  C TTHE.I  E.XEND. AND.O.GF.FXIT?  ) GO  TO  2S0 
CALI  RT  ACT  ( ONE  * • JO  07  * ) 

COMTIMUF 


CALL  HFXTT 
RF  TURN 
END 


) 


* • J007» 


000226R4 
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' 


n n o n n n n n n n n n n 


r 


c 


c 


r 


FUMCTI ON  P0|  Y (DL ♦ T«L ) 

FUNCTION  oOLY (DL * TBL ) 
ni^FMSlOM  T 0 L ( 7 ) 

TMP=TRL (7) 

DO  in  1=1.6 
TMP  = TMP»m  ♦ T m l ( 7 ** T ) 
in  COMTImHF 

PO|.Y=rMP*.  n 1 74533 
RF  TIJPM 

F Nin 

SURROuT I Mf  SHPG1 

GURRO'JTINf  6MPG1 

COMMOM/nFvICE/KFYOD, I TT Y , I CORD ♦ LP TR 
CO  4 M 0 M / I N n U T / I N A (32)  , IOUTA  (48)  , IN (32) 
1 SFOIJT  (iH)  , TPRTt  TTMP  (4H) 

11,7  X « Fc On  * 

WD,7  X* 1 l opt 

WRTTF  (in?,l) 

WPTTF ( I TTy, 1 ) 

1 FORMAT (*1  INTERRUPT  DURING  DIGITAL 
I SW 1 = 1 
RFTIJRN 
F MD 

SUBROUTING  fbpgr 
SUPROiJT  I Nr  SRPGR 
COMM0N/XY7/NUM8R 
DATA  NUMRp/0/ 

NUMPRsQ 
L I , 7 X » Fc On  * 

wn , 7 x* ] i o?* 

ISW1=1 

CA|_I  IC(TfPR) 

CAI.I  SAMU  (G,  I SAMOE  ) 

CALI  LOAD  ( I FRR  ) 

CALL  HOFF(TFPP) 
no  GO  I = 1,MLJMRR 
Sn  CONTINUE 

RIO  FORMAT ( * 0 » , I6*HF16.6,/ (6X»8E16.6 ) ) 

W R T T F ( 1 OP,  1 0 ) NIIMHR 
WRITF ( I TTY, 1 0 ) MUMRR 

10  format  (lift) 

L I , 7 X*FF00* 

WO, 7 X • 1 20?  * 

RETURN 


00006489 
00006490 
00006500 
00006510 
00006520 
00006630 
00006540 
00006550 
00006560 
00006570 
00026459 
00026460 

,IOUT(4R),ISW1,TSW7,SFIN(32)»00026470 

00026480 
00026490 
00026500 
00026510 
00026510 

COMPUTF  CYCLE*)  00026520 

00026530 
00026540 
00026550 
00026559 
00026560 
00026570 
00026580 
26580 
00026590 
00026600 
00026610 
00026620 
00026620 
00026630 
00026640 
00026650 
00026660 
26670 
00026680 
00026680 
00026690 
00026700 
00026710 
00026720 
00026730 
00010989 
00010990 
00011000 
00011010 
0001 1020 
00011030 
00011040 
00011050 
00011059 
0001 1060 
0001 1070 
00011080 
00011090 
00011100 


END 

FUNCTION  rF ( P ) 

FUNCTION  FF(P) 

COMMON/NE«/TpS/TOPF  (50),PRF(50)»TORR(5O),PnR(60),AMA(50),AFRI(50), 
1 AMR ( 6 0 ^ » G A MM (60)  ,AFA(60)  »GAMF(50)  ,AFR(60)  ,SLPP(50)  ,NTF,NTR, 

1 MM A , NMq , NF A , NFB 
FF=XINT(P,PPF*TQRF»NTF) 

PF  TURN 
FMn 

FUNCTION  r R ( P ) 

FUNCTION  fR(P) 

COMMON /NF ■ ToS/T  QRF  ( 50 ) ,PRF(50)  » TQBR (50)  ,PrR(60)  ,AMA (50)  .AFRI  (50)  , 
I AMR (50 ) ,GAMM (50 ) * AFA (60 ) »GAMF (50 ) » AFR  <60 ) ,SLPP (50 ) ,NTF*NTR, 

1 NMA,NMr,nFA,NFB 
FR=XTNT(P,PPR»TQBR,NTR) 


no  ->  n o o 


PFTI  IRm 
FNjn 

FUNCTION  FAMl T (FRI  *GAMT ) 

FUNCTION  FAMl I (FRI  .GAMI ) 

COMMON/NF  'TRS/IOPF(50)  , P^F  (50)  ♦ T QRR  (50).PPR(50).AMA(50).AFRI(5Q)* 
1 A mh ( 5 0 ) » 0 A MM ( s 0 ) » A F A (50)  ♦ G AMF (50)  . AFR ( 5 0 ) * SLPP ( 50 ) » MTF ♦ NTR ♦ 

1 MMA  ♦ NMo  « NE  A * NFR 
TMP1SXTNT(FRI*AFRI*AMA«NMA) 

TMP?  = XIMT (GAM  I »GAMM» AMRiNMR) 

FAMl TrTMPl * TMP2 
TTTT=8.5-n.?5R*flpS(GAMi) 

TF(  TTTT.i  E.0.A5  ) TTTT=0.85 

FAMl  I = T T TT 

F AM  H=8.5-0t  259*  APS  (GAM  I ) 

RETURN 

FMO 

FUNCTION  rfsT  fGAMI ,SLPT ) 

FUNCTION  FCSI  (GAMI »SLPI > 

COMMON /MF'*'TpS/TORF  (50)»PRF(50)»TORR(50)  »PRR  (50)  ♦AMA(50)»AFRI(50)* 


00011110 

00011120 

00011129 

00011130 

00011140 

00011150 

00011160 

00011170 

00011180 

00011190 


00011200 

00011210 

00011220 

00011229 

00011230 

00011240 


1 

AMP  (SO)  . r;  a MM  (SO  ) * 

AFA(50)tGAMF(50)»AFR(R0)tSLPP(50)*NTF»NTR» 

00011250 

1 

MMA . NMw « NE A * NFR 

00011260 

TMP1 =XINT (GAM  I *GAMF» 

AFA  » NFA ) 

00011270 

TMP?=x  T NT (Si  PI  ♦ SL  PP ♦ 

AFRtNFB) 

00011280 

FCST=TMP1 «TmP2 

00011290 

tmp=ars  (S|  pt  ) 

00011300 

IF (TMP,LF.0.02)GQ 

TO 

10 

00011310 

IF (TMP.LE.O.OS)GO 

TO 

12 

00011320 

IF  (T'MP.LF.O.IO)GO 

TO 

14 

00011330 

IF (TMP.LE, 0.15)00 

TO 

16 

00011340 

IF (TMP.LE. 0.20) GO 

TO 

18 

00011350 

IF (TMP.LE. 0.30)GO 

TO 

20 

00011360 

IF  (TMP.LE. 0.50)60 

TO 

22 

00011370 

GO  TO  24 

00011380 

1 0 

FCS 1=1.18 

00011390 

GO  TO  51 

00011400 

12 

FCS I = 1 • 1P> (0.02-TMP) /3. 

00011410 

GO  TO  51 

00011420 

14 

FCST=1 .24-1 .4*TmP 

00011430 

GO  TO  51 

00011440 

16 

FCS I = 1 . 14-0. 6*Tmp 

00011450 

GO  TO  51 

00011460 

1 8 

FCSI=1 ,21-0.8*Tmp 

00011470 

GO  TO  51 

00011480 

20 

FCST=1 ,27-Tmp 

00011490 

GO  TO  51 

00011500 

22 

FCSI=1 .29-1 .04*TMP 

00011510 

GO  TO  51 

00011520 

24 

FCSI =0 .25 

00011530 

51 

RETURN 

00011540 

FNO 

00011560 

FUNCTION  rUOI (GAMI 

♦ CVI  ) 

00011569 

FUNCTION  fUO I (GAMI 

tCVl) 

00011570 

COMMON/ AFUO/AFO] .AF02»AF03*AF04.AF05»AF96,GAMC0 

00011580 

TEMPsABS (GAMI ) 

00011590 

FUOTsl . 12-0.27*TEMP 

00011600 

TTTT=1 . 12-0.01685*TFMP 
IF(TTTT.LT.n.85)TTTT=0,85 
FU0 I = TTTT 
RETURN 

IF ( TEMP.LT. GAMC0 ) GO  TO  10 


00011610 

00011620 
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FNOT  = AFO3*AF04<i,CVI«'AE0R#TEMP  + AF06*TEMP-»CVT 
RETURN 

in  EU0T  = AF()1 -AKO?*CVI 
RE  TURN 
FNO 

r EIJNC T T ON  oE  TDFL  ( X « I • P5  . Nrmp  ) 

FIIMCT  ION  OFTHEL  ( X » I ♦ WS*NBMP) 

COmmon/XBF/XH ( 1?) fNS(4*l?) «DELX(4) , XT (4) ♦ NNN 
CO^mq.m/x  Y7/iv)UMRP 
n i mfms t on  x ( 4 ) 

OF  TOEL  = 0 . O 
1 F ( MUMP  . F n . 0 ) RETURN 
no  10  K = 1 . NUMP 

L=MRMD-k» i 

TF(X(I).LF.XR(L))NS(T*L)  =NUMRR*NINN 
IE  ( X ( I ) .GF.  XR  (L  ) . ANO.NIJMRR.LE.NS  ( I »L  > > GO  TO  20 
in  CONTINUE 
RETURN 

20  OFTnEl_=RS 
RETURN 
E Nn 

C FUWpT ION  Fin  I (OAM I ) 

FUNPT  TON  cUl  I (Gamt ) 

COMMON/ AF' 1 1 /AF11  ♦AF1?*AF13»GAMC1 
TEMP=ARS ( n A m I ) 

FU1 T=AF1 3 

IF (TEMP.LT.OAMC1 ) FU1 I=AF1 1 ♦AF12»TEMP 

FU1 T=0.85 

RETURN 

FMO 

P SURPOUTINF  DTRAK  (BFTfFRT  ♦ AKKI  ,PTHI  ) 

SURROUTINf  PTHAK(RFT,FRI,AKKI,PTRI) 

COmmon/P Tf.K/ API  .AP2*APR»AP4*AP5»RTC1*RTP? 
AP5=600. 

AKKT=AP4+fRT/APR 
TFMP=aRS (RE T»57.2957B) 

PTRT=AP1 

IF  (TEMP.  |.F.  PTC  1 ) RETURN 
PTRI=AP3 

IE ( TEMP.GT.PT CP) RETURN 
PTRT=AP1* (1.0- (TEMP -P TCI )*AP2) 

RFTIJRN 

EMO 

P FUNCTION  rNCT ( A1 ,A2. A3*FPI»CVI ) 

FUNCTION  fNCT(A1*A2*A3*FRI*CVI) 

C FNCT=Al*FPl  ♦ A 2 * C V I ♦AO 

FNCT=0.85*.P055»CVI 

return 

FNn 

C FUNCTION  vlNT (ARG« APGTR » FUN ♦ NP ) 

FUNCTION  XlMT ( ARG ♦ ARGTR ♦ FUN  * NP ) 

OTMFNRIOM  ARGTB (NP) *EUN (NP) 
no  10  1=1. NP 
IE ( ARG- ARGTR (I) ) 30 ♦ 20  « 1 0 
1(1  CONTINUE 
I=NP 

30  IF  (T.EQ.l ) 1=2 

TENP= ( ARG-ARGTB ( 1-1 ) ) / ( ARGTB ( I ) -ARGTR ( 1-1 ) ) 

X I NT  = FUN ( T - 1 ) ♦ (FUN ( I ) -FUN ( 1-1 ) ) *TEMP 
RETURN 


0001 1030 
0001 1640 
00011650 
00011660 
00011670 
00011679 
00011680 
0001 1690 
00011700 
0001  1 710 
00011720 
00011730 
00011740 
00011750 
00011760 
00011770 
00011780 
00011790 
00011800 
00011810 
00011820 
0001 1829 
00011830 
0001 1840 
00011850 
00011 R60 
00011870 
00011880 
0001 1890 
00011900 
00011909 
00011910 
00011920 
00011930 
000  1 1940 
00011950 
00011960 
00011970 
0001 1980 
0001 1990 
00012000 
00012010 
00012020 
00012029 
00012030 
00012040 
00012050 
00012060 
00012070 
00012079 
00012080 
00012090 
00012100 
00012110 
00012120 
00012130 
00012140 
00012150 
00012160 
00012170 


i.17 


c 


c 


c 


c 


c 


c 


c 


?n  xint=fum(t) 

RF  TURN 
F MH 

p U M r T I ON  *YSIN(X) 

FUNCTION  y YSIN  ( X ) 

x2=x#x 

XYSTN=X*M1.n-<0.1  668667-0 ,R333333E-2*X?) *X 2) 

RETURN 

END 

FUNCTION  XYCOS(X) 

FUNCTION  XYfOS(X) 

X2=X*X 

X YCOS=  1 .0-.(n.5-.4l66667E-l*X2)*X2 
RETURN 
F NO 

FUNCTION  a M r N ( X » Y ) 

FUNCTION  a m t N ( X » Y ) 

1 E ( X-Y ) 1 * 1 * 2 

1 AMTMsX 
RF  TURN 

2 AMTN=Y 
RETURN 
F Nn 

SURPOUTINF  PEADcn 
SURROUT I Nr  RE  ADCD 
DIMENSION  I ADDR  (244)  ♦ IVAl_  (244) 

COmmon/DEvICE /KEYBD* TTTY, ICDRD.LPTR 


00012180 

00012190 

00012200 

00022739 

00022740 

00022750 

00022760 

00022770 

00022780 

00022789 

00022790 

00022800 

00022810 

00022820 

00022830 

00022839 

00022840 

00022850 

00022860 

00022870 

00022880 

00022890 

00022900 

00022909 

00022910 

00022920 


INTEGER  YrS/«YES  »/ 

nATA  I ADDo/7 00 0,3001 ,30 02* 30 03* 30 04, 3005 *30 06*30 07,301 0*301 1 ,3012* 


13013 
13030 
1 3044 
] 30*4 
13100 
13114 
13131 
13146 
1 3163 
13240 
13255 
1 3276 
133  33 
1 3350 
13371 
1 2226 
12  2 0 3 
12300 
12315 
TALL 
PR  T NT 


3014,3015*3016*3017 
3031 ,3032*3033*3034 
3045,3046*3047*3050 
3065,3066*3067*3070 
3101.3102*3103*3104 
3115,3116.3117*3120 
3132,3133.3134.3135 
3147,3150*3151.3152 
3164,3165*3166.3167 
3241 ,3242*3243*3244 
3256,3257.3264*3265 

3277,3320*3321*332? 
3334,3335*3336.3337 
3351 ,3352.3353.3354 
3372,3773.3374*3375 
2227.2230*2231*2232 
2204,2205*2206.2207 
2301,2702*2303.2304 


,3020 

*3021 , 

,3035 

*3036* 

,3051 

*3052. 

,3071 

,3072* 

*3105 

*3106* 

♦ 3121 

*3122, 

*3136 

*3137, 

*3153 

♦3154, 

,3170 

*3171 , 

* 3245 

*3246, 

*3266 

,3267, 

♦ 3323 

*3324, 

♦ 3340 

,334  1 , 

*3355 

*3356* 

,3376 

*3377* 

♦ 2233 

*2234, 

♦ 2210 

*2211  * 

,2305 

*2306, 

3022.3023 
3037*3040 
3053*3054 
3073.3074 
3107*3110 
3123.3124 
3140.3141 
3155,3156 
3172,3173 
3247,3250 
3270,3271 
3325,3326 
3342,3343 
3357*3364 
222 0,2221 
2235,2^36 
2212,2213 
2307*2310 


3024,3025.3026,3027, 

3041.3042*3043. 

3055*3056.3057, 

3075*3076.3077, 

3111*3112.3113. 

3125,3126,3127,3130 

3142,3143,3144,3145 

3157.3160*3161,3162 

3174.3175.3176,3177 

3251,3252*3253,3254 

3272,3273.3274,3275 

3327.3330.3331,3332 

3344*3345.3346*3347 

3365,3366*3367,3370 

2222*2223.2224,2225 

2237*2200*2201,2202 

2214,2215*2216,2217 

2311*2312.2313*2314 


2316,2717/ 

RE AD  A ( TERR* I A DDR* I VaL* 1 , 1 *20  8) 

20  0,  ( ( ( IADDR ( I ♦ J- 1 ) * IVAL ( I ♦ J- 1 ) ) , J= 1 . 208 . 52 ) * I = 1 ♦ 52 ) 


200  FORMAT ( » 1 * *2X* ’COEFFICIENT  V AlUE * » 1 OX , • COEFF I C I ENT  VALUE  * 

1 * 5 OX, «COFFFTCIENT  VALUE'.lOX,  ’COEFFICIENT  VALUE’/*  »*4X» 

1* DEVICE**  25  X , * DE  V I CE  * * 25X * « DF V I CE • ♦ 25X , • DE V I CE » / ( • 0 • , 6X * 1 4 ♦ 7X • 
1 Tb,3 ( 14X*  T4*7X» 16)  ) ) 

WRTTE  (10?, 300) 

WRITE ( ITTY.300) 

700  FORMAT  ( * CO  YOU  WANT  POT  SETTINGS  AND  ADDRESSES  PUNCHED?  IF  SO* 
1TYPF  * * YE  S * * « Then  N/L.») 

RFAH (KEYBn»400 ) INI 
RF  AD  (101,400)  INI 


00022930 

00022940 

00022950 

00022960 

00022970 

00022980 

00022990 

00023000 

00023010 

00023020 

00023030 

00023040 

00023050 

00023060 

00023070 

00023080 

00023090 

00023100 

00023110 

00023120 

00023130 

00023140 

00023150 

00023160 

00023170 

00023180 

00023190 

00023200 

00023200 

00023210 

00023220 

00023230 

00023230 


118 


40 n format  (A3) 

IF  (IN1.NC.YFS)  60  TO  700 
no  600  1=1 »?0 ft 

r WRTTF  (10<-*KOO>  I ADOR  ( I ) ♦ IVAL  ( I ) 

WHITE ( ICDpN.500 ) I AODR ( I ) • I VAL ( I ) 

S00  FORMAT  U4»6X»I5) 

600  CONTINUE 
700  RETURN 
FNO 

FUNCTION  TAN(X) 

TAMsSTN ( X ) /COS  ( X ) 

RETURN 

FNO 


00023240 

00023250 

00023260 

00023270 

00023270 

00023280 

00023290 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 
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3 . PRESENTED  HERE  ARE  THE  ANALOG 
COMPUTER  DIAGRAMS 


121 


Fig.  B-2  ANALOG  COMPUTER  DIAGRAM  - CONTINUOUS  RESOLUTION  OF  WHEEL  RATES 
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Fig.  B-3  ANALOG  COMPUTER  DIAGRAM  - SUSPENSION  FORCES  AND  DEFLECTIONS 
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Fig.  B-4  ANALOG  COMPUTER  DIAGRAM  - WHEEL  SPRINGS  AND  SHOCK  ABSORBERS 
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Fig.  B-5  ANALOG  COMPUTER  DIAGRAM  - RADIAL  FORCES  AND  INDEPENDENT  REAR  SUSPENSION 
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Fig.  B-6  ANALOG  COMPUTER  DIAGRAM  - STEERING  SYSTEM 
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4.  PRESENTED  HERE  ARE  THE  WHEEL  SPRINGS 
AND  SHOCK  ABSORBER  CHARACTERISTICS 


135 


-4  -2  0 2 4 

5 ( in ) 

Fig.  B-7  FRONT  WHEEL  SPRING  FORCE 
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5(in) 

Fig.  B-8  REAR  WHEEL  SPRING  FORCE 
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-50  -40  -30  -20  -10  0 10  20  30  40  50 

6(  in/sec) 

Fig.  B-9  FRONT  SHOCK  ABSORBER  VISCOUS  DAMPING  FORCE 
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SA  3,4 


200 


150 


-50  -40  -30  -20  -10  0 10  20  30  40  50 

5 ( i n/sec) 


Fig.  B-10  REAR  SHOCK  ABSORBER  VISCOUS  DAMPING  FORCE 
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5.  PRESENTED  HERE  ARE  THE  SYMBOLS  AND  DEFINITIONS 
OF  THE  PROGRAM  PARAMETERS.  THE  ORDER  OF  THE 
PARAMETERS  CORRESPONDS  TO  THE  INPUT  DATA  CARDS. 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
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G 


ft 

0 

„ „ 

p 

p 

G 

•H 

CM 

G 

G 

G 

P 

P 

o 

0 

rd 

0 

G 

a 

CD 

G 

CD 

G 

ft 

CD 

CO 

P 

G 

p 

CO 

G 

1 

•rH 

, — _ 

G 

P 

P 

p 

p 

PS 

„ 

CM 

P 

0 

0 

0 

0 

i 

CM 
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l 

J>i 

O 

CD 

CM 

P 

CO 

CO 

CO 

• 

CD 

CO 
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i — l 

-H 

•rH 
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ft 

G 

CO 

1 

CD 
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G 

CO 

CM 
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rd 

rd 
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CD 
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1 
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CD 

CO 
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PS 

i — 1 
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P 
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CO 

rd 
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•H 
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ft 
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1 
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SP 
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ft 

CO 

CO 
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3: 

0 

P 
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APPENDIX  C 

DESCRIPTION  OF  HYBRID  COMPUTER  SIMULATION  LABORATORY 
1 . HYBRID  COMPUTER 

The  APL  hybrid  computer  is  unique  in  that  the  analog  computer 
is  a terminal  to  a large  digital  computer,  with  communication  be- 
tween them  occurring  over  a 1000-foot  data  path.  A block  diagram 
of  the  system  is  presented  in  Figure  C-l.  The  analog  computer  is 
an  EAI  680  and  the  digital  computer  is  an  IBM  System  360  Model  91. 
The  data  channel  that  provides  the  high-speed  transmission  re- 
quired for  hybrid  processing  is  the  parallel  data  adapter  (PDA) 
of  the  IBM  2909  asynchronous  data  channel.  The  2909,  which  is 
capable  of  transmitting  at  a 2M-byte  rate,  is  working  at  aPout 
40%  of  this  rate  (200K  16-bit  words  per  second)  through  the  PDA 
while  servicing  the  hybrid.  Besides  the  PDA,  the  2909  has  two 
additional  subchannels  used  for  hybrid  processing. 

The  priority  interrupt  subchannel  provides  up  to  64  priority 
interrupt  levels  (PILS)  for  a System  360  which,  with  the  excep- 
tion of  the  360/44,  does  not  have  a priority  interrupt  structure. 
Thus,  this  subchannel  was  necessary  in  order  to  provide  the  hy- 
brid system  with  PILS.  This  subchannel  currently  is  expanded  to 
16  PILS.  The  other  subchannel  provides  a precision  interval 
timer  (1  [is  resolution)  to  the  hybrid  user.  This  timer  can  be 
loaded  via  software  and  causes  an  interrupt  when  decremented  to 
zero,  which  in  turn  initiates  an  event  in  a hybrid  program. 

The  360/91,  one  of  the  largest  and  fastest  computers  built  by 
IBM,  has  the  following  characteristics: 

• Third-generation  hardware 

• 4 million  bytes  of  main  core  storage 

• 1.5  billion  bytes  of  direct  access  storage 

• Minimum  execution  time  of  60  ns  per  instruction 

• Uses  the  Operating  System  OS/MVT  (Multiprogramming 
with  a Variable  Number  of  Tasks) 
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Fig.  C-1  HYBRID  SYSTEM  BLOCK  DIAGRAM 
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Two  advantages  are  immediately  obvious  to  a 360/91  interactive 
user.  First,  since  he  is  only  charged  in  proportion  to  his  use 
of  the  central  processing  unit  (CPU)  and  main  core  storage  in 
the  multi-programming  environment,  the  machine  is  cheap.  Second, 
since  the  360/91  is  a third-generation  computer  with  nearly  un- 
limited resources,  it  is  extremely  fast  and  efficient  when  com- 
puting. In  summary,  this  computer  gives  the  interactive  terminal 
user  unlimited  digital  resources  at  a cost  comparable  to  that  of 
a much  smaller  computer. 

The  Interactive  Simulation  Laboratory  (ISL)  is  located  800 
feet  from  the  360/91  digital  computer.  The  2909  PDA,  which  has 
specially  designed  line  drivers  and  receivers  (now  standard  from 
IBM) , can  easily  drive  the  1000-foot  cable  to  the  ISL.  However, 
matching  drivers  and  receivers  are  required  in  the  ISL.  These  are 
housed  in  the  IBM  2930.  Individual  lines  are  required  for  each 
bit  of  the  data  word,  each  control  line,  and  for  each  PIL.  The 
2930  then  cables  into  a 360/91  coupler  (standard  EAI  product) 
housed  within  the  EAI  693.  From  the  coupler  on,  the  693  hybrid 
interface  and  680  analog  computer  are  standard  EAI  equipments. 

In  addition  to  the  hybrid  hardware  of  Figure  C-l,  the  ISL 
contains  two  pieces  of  equipment  that  support  the  hybrid  opera- 
tions . These  are  a Data  100  remote  batch  terminal  and  an  IBM 
2741  typewriter.  The  Data  100  consists  of  a 600  card/minute 
reader  and  a 600  line/minute  printer  which  allow  the  submission 
of  jobs  to  the  360/91  and  the  return  of  results  from  the  360/91 
at  the  ISL  hybrid  work  station.  The  Data  100  operates  over  a 
dedicated  telephone  line  into  a controller  connected  to  the  360/91 
multiplexer  channel.  Its  support  package  is  the  IBM  remote  job 
processing  (RJP)  portion  of  the  ASP  job  scheduler.  The  2741  has 
evolved  as  the  hybrid  control  console.  Via  APL-written  software, 
all  hybrid  jobs  can  be  interfaced  to  the  2741  and  problem  execu- 
tion directed  from  it.  The  2741  operates  over  a switched  line 
into  the  multiplexer  channel  via  a controller. 

These  hardware  items  comprise  the  APL  hybrid  computer  system. 
In  addition  to  this  system,  the  ISL  contains  three  231-R  analog 
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computers,  each  interfaced  to  an  EAI  DES-30  logic  unit  and  an  EAI 
quarter-square  multiplier  rack.  These  machines  are  interfaced  to 
the  hybrid  system  via  buffering  amplifiers  for  large  simulations. 

2 . HYBRID  SOFTWARE 

Included  with  the  original  EAI  hardware  purchase  were  three 
hybrid  software  packages  operable  under  Operating  System  360 
(OS/360) . The  first,  the  HYIOS  (Hybrid  Input/Output  Subroutines) 
package,  was  a collection  of  Fortran  IV  callable  subroutines  that 
allowed  operation  from  the  360  of  all  hybrid  functions  in  the  680 
and  693  originally  designed  for  control  from  the  EAI  640  digital 
computer  (Ref.  3) . These  routines  number  47  and  permit  complete 
control  and  readout  of  the  data  interface,  logic  components,  and 
analog  components.  Also,  these  routines  do  extensive  error  check- 
ing and  each  has  an  error  argument  returned,  which  can  be  checked 
by  the  programmer  to  determine  successful  completion  of  a hybrid 
operation.  The  routines  and  the  hardware  have  proven  so  reliable 
that  these  arguments  are  seldom  checked  in  current  hybrid  pro- 
grams . 

The  second  software  package  delivered  by  EAI  was  HYSAT  (Hybrid 
Static  Analog  Test) . HYSAT  is  an  interpretive  language  written 
in  Fortran  using  HYIOS,  which  automates  the  performance  of  analog 
computer  setup  and  static  checks.  Simple  commands  allow  changing 
the  analog  mode,  setting  potentiometers  and  control  lines,  read- 
ing the  outputs  of  amplifiers,  integrator  derivatives,  and  track- 
store  inputs,  and  reading  the  state  of  sense  lines,  comparators, 
and  relays.  In  the  verify  mode,  the  outputs  of  the  analog  and 
logic  components  can  be  compared  against  predetermined  values, 
with  all  errors  documented  on  the  2741.  This  program  is  inter- 
active from  the  2741  or  from  cards.  The  capabilities  of  HYSAT 
have  been  combined  with  ease  of  programming  of  a simulation 
language  (DSL/91)  to  produce  a completely  automated  static  check 
procedure  for  hybrid  programs  (Ref.  4) . A specially  wired  board 
and  specially  prepared  HYSAT  data  deck  are  used  to  verify  that  all 
680  analog  components  are  operational. 
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Whereas  HYSAT  permits  checking  the  680  analog  console  statically, 
the  third  software  package  delivered  by  EAI  permits  checking  the 
693  hybrid  interface.  HIORT  (Hybrid  Interface  Operational  Readi- 
ness Test)  is  again  an  interpretive  language  that  is  interactive 
from  the  2741  and  is  used  to  perform  A/D  converter  absolute  error 
tests  and  A/D  - D/A  converter  relative  error  tests.  With  this 
program,  information  is  obtained  to  demonstrate  the  functioning, 
within  specification,  of  the  hybrid  interface. 

Thus,  with  these  three  software  packages,  complete  hybrid 
programming  is  obtained.  HYIOS  provides  the  Fortran  callable 
routines  for  application  programs;  HYSAT  provides  a convenient 
interactive  method  for  performing  initial  setup  and  static  checks; 
and  HIORT  provides  an  interactive  method  of  insuring  the  accuracy 
of  the  hybrid  interface.  These  programs  are  fully  documented  in 
Ref.  3. 

3 . REAL-TIME  HYBRID 

The  multiprogramming  360/91  is  a great  asset  for  the  hybrid 
in  that  it  provides  nearly  unlimited  digital  resources  and  inex- 
pensive operation.  However,  when  real-time  hybrid  is  considered, 
multiprogramming  becomes  a liability.  Since  many  users  are  time- 
sharing the  facilities  of  the  large  central  processor,  service 
within  a fixed  time  frame  cannot  be  guaranteed.  From  the  beginning, 
it  was  obvious  that  a hypervisor  was  required  for  real-time  jobs. 

This  need  has  been  met  by  IBM's  real  time  monitor  (RTM) . RTM 
was  developed  at  the  IBM  Palo  Alto  DACS  Development  Center  and  was 
first  reported  in  a seminar  at  the  DACS  Center  in  September  1968 
(Ref.  5) . As  first  reported,  RTM  guarantees  CPU  service  to  jobs 
designated  as  real-time  jobs,  with  RTM  co-resident  with  the  OS/360 
monitor.  The  real-time  job  can  use  all  the  facilities  of  OS  and 
can  force  all  non-real  time  jobs  into  the  "wait  state"  when  it 
needs  the  CPU.  The  original  hardware  involved  in  the  RTM  develop- 
ment was  an  IBM  360/50  working  through  a "transparent"  IBM  1800 
into  an  Applied  Dynamics  (AD-4)  analog  computer.  In  mid  1969, 
the  DACS  Development  Center  agreed  to  augment  their  basic  RTM 
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with  the  code  required,  to  have  RTM  support  the  PDA,  precision 
interval  timer,  and  priority  interrupt  subchannels  of  the  IBM 
2909.  These  packages  provide  Fortran  callable  subroutines  as 
well  as  assembly  language  instructions  for  accessing  and  control- 
ling the  three  subchannels.  RTM  is  a "free"  software  package  for 
those  who  use  OS/360  operating  systems;  it  was  released  in 
December  1970.  Reference  6 is  an  introduction  to  RTM  and  Ref.  7 
is  the  RTM  Operations  and  Programmer's  Guide. 

Several  applications  programs  have  been  written  using  the 
real-time  monitor;  however,  two  basic  types  of  operation  are 
employed:  (a)  initialization  of  real-time  events  via  the  priority 

interrupts  and  (b)  the  initialization  of  real-time  events  via 
decrementing  of  the  interval  timer.  Besides  the  conventional 
closed-loop  hybrid  technique  of  executing  a digital  program  in- 
volving A/D  conversion,  digital  calculation,  and  D/A  conversion, 
an  interrupt-based,  multiplying  D/A  converter,  hybrid  function 
generation  scheme  (Ref.  8)  has  also  been  implemented.  In  order 
to  complete  support  of  these  real-time  hybrid  jobs,  the  HYIOS 
subroutines  were  rewritten  to  run  under  RTM  as  well  as  OS/360. 
During  this  rewrite  much  of  the  error  checking  in  these  routines 
was  omitted,  greatly  decreasing  the  execution  time  of  each  rou- 
tine . 

4 . HYBRID  OPERATION 

Two  modes  of  hybrid  operation  are  currently  employed:  closed- 

loop  real-time  hybrid  and  data  acquisition.  In  both  cases  the 
hybrid  jobs  are  submitted  to  the  360/91  via  the  Data  100.  If 
it  is  a real-time  job,  the  hybrid  applications  engineer  must  have 
RTM  released  prior  to  the  release  of  his  application  program. 

Both  real-time  and  data  acquisition  jobs  are  run  interactively 
from  the  2741  typewriter  and  jobs  are  available  within  minutes  of 
submission . 

Hybrid  data  acquisition  programs  are  those  that  use  the  digital 
computer  to  vary  parameters  interactively  between  runs  in  an  all- 
analog simulation,  collect  data  at  the  end  of  a run,  and  then  post- 
process the  data  to  determine  a cost  function.  No  real-time 
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constraint  exists  in  this  type  of  running,  and  stochastic  vari- 
ation (white  noise)  is  usually  an  input.  Many  runs  are  required 
to  statistically  define  a data  point.  The  digital  computer  res- 
ponse is  gotten  by  forcing  the  360/91  program  into  the  "wait 
state"  for  the  analog  solution  time  immediately  following  the  in- 
struction to  change  the  analog  mode  to  operate.  The  statements 
following  the  "wait"  collect  the  data  and  then  return  control  to 
the  typewriter.  This  mode  has  been  quite  reliable  and  control  is 
immediately  returned  to  the  program  following  the  "wait" . Non- 
real  time  jobs  operate  under  OS/360  at  a software  priority  of 
11  out  of  13,  using  the  HYIOS  routines  supplied  by  EAI . As  pre- 
viously mentioned,  all  real-time  jobs  operate  under  RTM  in  the 
manner  discussed. 
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